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Foreword from Dick Smith 



Hi there.' Welcome to the exciting world of computing, and to the 
rapidly growing ranks of people using the incredible new System 80 
computer. . . 

The idea behind this book is to provide you with a really easy to 
follow introduction to programming in BASIC, using the System 80 
computer. The System 80 is an exciting new machine based on the 
"Level II" version of the Tandy TRS-80 computer, which has been the 
largest-selling computer of all time. The System 80 uses virtually 
the same components as American made computers like the TRS-80, but 
it is assembled in Asia to take advantage of lower labour costs. 
This allows it to be sold much cheaper, providing outstanding value 
for money and bringing the advantages of computer technology to 
people who could never afford it before. 

Along with its lower price, the System 80 also offers an inbuilt 
cassette tape deck which gets around most of the troubles often 
caused by a separate audio tape recorder. It is also designed to 
give you the choice of using either a video monitor or a standard 
TV set for its display. So there's no need to buy a video monitor, 
if you already have an unused TV set -- nor do you need to lug 
around a monitor when you're taking your System 80 to a friend's 
place! 

The System 80 is also designed for later expansion using the 
popular S-100 interconnection system — opening the door to almost 
unlimited expansion. Plug-in boards for the S-100 system are made 
by hundreds of manufacturers all over the world. 

In short, the System 80 is not vinly excellent value for money, but 
an ideal "first computer" on which to learn programming! 

By the way if you're impatient like me and want to get your 
System 80 running with pre-recorded programs straight away, turn 
to Appendix D at the back of the book after reading chapter 1! 



Happy computing, 
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Preface bjy the Authors 



While this book is all about programming 
the System 80 computer, it is not a Programming 
Manual, if you want something that is gritty, 
concise and complicated then this is v t the 
right book for you. 

On the other hand, if you have not even 
played with a computer before, then this should 
be just the book for you J It will be especially 
useful if you have a System 80 computer in front 
of you while you read! 

The objective here is to help you make your 
way through the ins and outs of programming with 
the System 80. If you follow us all the way you 
should pick up enough about the BASIC language, 
programming and the System 80 to really do your 
own thing.' 

There are lots of fun programs published 
of BASIC computer games that you can have a 
great time copying into your System 80 (though 
sometimes minor changes will have to be made). 
However, the satisfaction of writing your own 
program, even a simple game, is incomparable^ 

Computer programming is not an arcane art 
or even a mysterious science. It is a creative 
HUMAN activity. It requires a little education 
(read on J) and some concentration but you can 
do it J.' 



3ohn and Judy Deane 
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l.Can I turn it on? 



Well, you've got a System 80J And I guess you'd like to use it J 

Find somewhere comfortable (you could spend some time with your 
System 80), secure (it would be a pity to have a card table fold up 
under you!) and out of the weather (computers don't like rain, dirt 
or tornadoes too much). Now let's see what we're doing. 

This is the back of your System 80: 



ON OFF 



Ufl 



\2°57 




[o of 
,o„o. 



EXPANSION CONNECTOR 



TAPE 
RECORDER MONITOR VIDEO CUT 



RESET 



RF video cable 



Power 



* If you're going to use a Video Monitor you'll need to use the 
composite video cable, ie. 




Plug the fat DIN end into "MONITOR" in the back of System 80 and 
the smaller RCA plug into the back of your monitor. 



If you're going to use your TV set for display you can't use the 
above cable but the RF video cable built into System 80 will need 
to be connected to the aerial socket of your TV set. Select 
channel 1 to see System 80's display. You may find that you'll 
have to adjust brightness or contrast or even vertical or 
horizontal hold on your TV, to get a clear and steady display. 



OK, you've got System 80 connected to your display, now you can turn 
it on. Don't forget System 80's power switch at the back right. 



( from the top 




M 



= off & 



*~m 



= on ) 



System 80 should"have a red light on at the left and your display 
should be showing 

READY?_ 

near the top. 



If you don ' L see that, refer to your System 80 User's Manual for more 
details . 



You might like to use double size characters, especially if you're 
using a TV set for your display. At the back, press The "VIDEO CUT" 
button in (till it locks). When that's in, the grey "PAGE" button 
above the keyboard becomes active, ie. 



with 



o 



in 



V1UEU CUT 



with 



6 



out 



VIDEO CUT 



Shows the left half of the 
display, 32 characters wide. 
This is the normal position. 

Shows the right half of the 
display (there's often no- 
thing here at all! ) 



The display shows 64 smaller characters 
(and kPAGO doesn't do anything). 




Mow that you've got 

READY?_ 

displayed at the size you want it, press the large 

i'mew hue) 

key. System 80 will sort itself out, then display 

READY 
>_ 

at the bottom of the screen. 
NOW YOU'RE AWAY 1 .' 

We can get on with our look 
at the language that System 
80 uses. It uses BASIC, a 
language formulated as the 
Beginners' Allpurpose Symbolic 
instruction Code. 

(You may think of other words 
to describe it later, but 
these are the recognised ones. ) 



REM* • 




2. Let's say hello 



Now that we really have a computer 
let's see that it works. 



/* HELLO/ 



At this stage the video display 
should be showing 

READY 

>_ 

at the bottom of your screen. 
The > is the prom pt sign which 
means that the System 80 can accept 

your type-in now and the underline is the cursor which shows where the 
next character typed will go. The total display means that your System 
80 is ready and waiting for you to say something. What you type in 
must be just right but if you make a mistake you can correct it by 
simply pressing 




BACK 
SPACE 



to remove the last character typed, then retyping it correctly. 
Now type in the following line exactly as it appears. 
PRINT "HELLO" 



Can you find the single large key on your keyboard called [ t~EW LINE j ? 
This is to tell the System 80 that you have finished that line and your 
computer should look at what you have just typed in, so press it. 

What happened? The display should have gone to the next line and shown 

HELLO 
READY 

>- 

Even if you left off the last quotation mark you'll still get this 
display but it may cause trouble later when you want to type in more, 
so remember to put quotation marks at both ends of the text following 
PRINT. 

If you got some other message check that you 
-spelled PRINT correctly 
-left no spaces in the word PRINT 
-used only one pair of quotation marks. 



Try it again. Did System 80 say hello this time? You can make your 
System 80 say anything you like by changing the text inside the 
quotation marks and it will answer exactly what you type in. 



NOTE that PRINT and the quotation marks did not appear. They are not 
supposed to be displayed and are only to tell the computer what to do. 



Now type in the following line ■* 

10 PRINT "HI, I'M SYSTEM 80" 

Be sure to use numeric zero, here represented by 0, rather than 
alphabetic 0. 



Now hit (_NEW LINE j 

This time System 80 didn't talk to you did it? This is because of the 
number at the beginning ,of the line which tells your computer that 
what you have just entered is part of a program (Yes indeed; A real 
program^ ) to be stored in memory rather than acted on immediately. 
READY is not displayed this time as the appearance of the word would 
just be a nuisance at this stage of the game. But notice that the 
prompt and the cursor are displayed on the next line ready for you to 
type in your next instruction. So type 



RUN [NEW LINE j 

This time you should have seen 

HI, I'M SYSTEM 80 

appear on the next line. 

If, Heaven forbid, it did not, then the System 80 could not understand 
something. Go back and type the line in again and, as long as you use 
the same line number the new line will replace the old. If RUN still 
doesn't get you the right thing something is thoroughly mucked up in 
the program. This time type 



NEW [NEW LINE j 

before re-trying the line. That should zap ANYTHING left over.' 

The command NEW tells System 80 that you want it to erase any 
existing program in its memory and "wipe its slate clean" ready to 
feed in a new program. You should always use this command before 
feeding in a new program. 



Now did it all happen for you 



99999 



WELL NOW, WHAT HAVE YOU DONE? 

That is your FIRST program and you have made it work::.' 

We can distinguish now between 2 different things you can say to the 
System 80. Lines that you type in and that are executed immediately 
(NEW LINE") is hit are BASIC commands . Lines that are typed in to be 
executedlater are BASIC statements . Statements make up a program 
and will execute when the command RUN is given. 







Unlike the first lines we tried which 
were once-only displays, your program 
statement can be recalled. If you hit 



RUN 



( NEW 



LINE 



a second time your System 80 will say 
hello again. No matter how many times 
you say RUN the computer will answer 
because the instruction you have given 
is still in memory. Doesn't that make 
you feel powerful? 



What have we learnt in this chapter? 



Commands 



Statements 



RUN 
NEW 



PRINT "text" 





Other 






BACK ] 
SPACE J 






( NEW LINE ) 


READY 


> prompt 
_ cursor 


quotation marks 


line numbers 



3. Programming already? 



A one line program does not seem quite like the real thing.' 
So let's do some more. Type in 

20 PRINT "AT YUUR SERVICE:" ( ~NEW Tl NE~") 

If that looks all right try typing 

RUN { NEwTlNE" ; 

Hmmm?? That was a bit like what we did last time, but now you can see 

HI, 1 »M SYSTEM 80 
AT YOUR SERVICE! 

Right: Your first program has grown: 

Surely you haven't forgotten what you typed in? Well, probably not, 

but anyhow let's type in 

LIST (" NEW LINE ) 

NOW you should see 

10 PRINT "HI. I »M SYSTEM 80" 
20 PRINT "AT YOUR SERVICE:" 

You should have figured out what PRINT does, but there is that funny 
little 10 and 20 before the PRINT. These are line numbers. They say 
where in the program lines should go. Type 



5 REM I EST PROGRAM (NEW LINE ) 

now try 

LIST Cno TinE^ 

again. 

WOW, that last line is now at the TOP of the program::: 
Aha; in line number order.' You can write a program with line numbers 
as 1, 2, 3 etc., but, say you make them 10, 20, 30 instead, then up to 
9 program corrections and additions can go inbetween any 2 old lines. 

Actually, line numbers can be any numbers from to 65529 (that's a 
lot of lines.' ) . 

Ok. but what if 1 type a line number the SAME as one already in the pro- 
gram?? Well: We've already discovered that haven't we? The line just 
typed in completely replaces the old one. That sounds a bit dangerous! 
Maybe so, but that is how you correct a line with mistakes. Oust retype it: 

However, if you spot the errors before you have actually finished typing 
in the line itself, you can erase the whole line by pressing 
[BACK 

SPACE 



(SHIFT) with 



So much for all that stuff. What we have now is a 3 line program. 

Let's RUN ( NEW LINE~] it. 

Good Heavens, something must be wrong. We added a line but it ran just 
the same way! Remember that line was 



5 REM TEST PROGRAM 




and in BASIC when you say REM that means 
REMark. The computer leaves such REM 
statements in your programs and shows 
them when you list them, but it completely 
ignores them when the programs are 
actually running - it understands that 
they are solely for the use of humans. 

What good are REM statements if the 
computer ignores them? Simple: they 
allow anyone else, or yourself at a later 
date, to list the program and see what it 
is doing and how it is doing it. Program 
requirements change, and sometimes the 
computer setup does too. REMarks provide 
shining little gems of illumination to 
what could otherwise become a very misty 
program landscape I 



Let's pretend we have done something a bit dumb (we're only pretending 
remember) and we want to totally annihilate a line of program. Type in 



10 [NEW LINE ) 



And RUN it again. I'm beginning to get a bit weary of sayingfNEW LINE J 
("Hey look at this!") all the time. As you can see it is 
always used as the terminating keystroke of a line. So from now on, 
even if I don't say NEW LINE at the end of a line, you will know 
that you must type it there. 



What were we doing? Oh yes, when we 
ran then only the second line of text 
appeared! To see what we did type 

LIST 

(now really, you didn't forget that 

(NEW LINE) did you? ) 

Right.' The middle line has gone en- 
tirely! We deleted line 10 just by 
typing its line number with no program 
line! 




! » 



Now for a bit of "computer" type stuff. We nearly have enough bits 
and pieces together to have a bash at our own programs. 



Very soon System 80 will start telling you things it has found that 
it does not like. For instance, if you asked your computer to 

10 PRNT"HI" 



it does not notice the missing '!' when you press [ NEW LINE . (The 



computer just stores the line away.) BUT when you tell it to RUN 
System 80 will say 

?SN ERROR IN 10 

READY 

10 _ 

and stop running your program. Here 'SN' stands for SYNTAX and it 
means that there is something wrong in the way that the words are 
written in line 10; in this case, a spelling error in the word 'PRINT'. 

System 80 has automatically entered "edit mode" for the line with an 
error and is waiting with the line for you to correct. We'll talk 
more about editing later but for now it is sufficient to press 
[ NEW L1NE~3 and you'll see the whole line containing the error. 
System SO will now talk to you normally and will display the prompt 
and cursor showing that it is ready for you to type in the correct 
version. 

There are many errors that System 80 can detect, and these are listed, 
and explained, in Appendix B. 

OK", now one giant step for you and a small one for mankind. 

Type in NEW to remove all trace of program. The screen will be cleared 

and 

READY 

>_ 

will appear at the top. 

NOW write your very first own program to print out your own name.' 
(and RUN it tool) 

Pause here for violins, mounting orchestral accompaniment then, prefer- 
ably, peace and quiet. 



You should have something along the lines of 

10 PRINT "U.R.WRIGHT" 

Tremendous crescendo, gradually fading to close. Enthusiastic applause 
and we all go home for a good night's sleep. 

In Chapter 3: 



Commands Statements Other 



LIST REM more about line numbers 

deleting 
errors 
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4. It really works! 



Everybody knows that computers are 
good at mathematics. Wrong J 
Computers ARE good at arithmetic; 
add, subtract, multiply, divide, 
but it takes people to construct 
programs to solve problems in math- 
ematics. A computer is only as good 
at maths as its programmer isJ 

Your System 80 talks arithmetic with 
a BASIC flavour that is not too diff- 
erent from "normal". 
So, for add we use + 

for subtract 

for multiply * 
and for divide / 




Hmm, those last two are a bit funny - whatever happened to X and * ? 
Well, it might be a bit confusing (and computers can't stand confusion) 
to use the same symbol as an alphabetic X for multiply, and * just did 
not exist on the standard typewriter layout. So, * is pretty much 
like a special X, and / is the way we write fractions (eg. 1/2). So 
there we have it .... 

Before we go any further, let's talk a little about maths. No don't 
go all squeamish on me yet, I want to say my bit.' Maths is not some- 
thing to be frightened of (unless you faint at English grammar say). 
It is just a way to describe some things. You wouldn't use maths to 
describe Mrs Jones' new hat.' But how about things involving numbers 
anyway, like sizes, times or distance? For instance, instead of saying 
"if your car travels at a constant speed for some time you can find 
out how far it went by adding a unit of speed for each unit of time", 

how about saying ... . v * • 

3 distance = speed X time 

Maths is a clever plot carefully designed and constructed by people 
to allow shorthand descriptions of the way we think the world works. 
That just could be useful .' 



So much for that excursion. Let's get back to the world of the System 80. 
First, type NEW and then LIST to make sure we have a clean slate! 



You didn't forget ( ^NEW LINE ) did you? 
OK, I'll stop nagging. 

Now we can try the program line 

30 DI=SP*T 



You guessed it, DI is distance, SP is speed and T is time. We multiply 
SP by T to get distance as DI . 



DI, SP and T are called variables and they can have different values. 
Or, to put it a different way, their values can vary J Gosh. 



ie. A to Z, and the rest can 
Some examples ,of allowable 



Variable names must start with a letter 
only be made up of letters and numbers, 
variables are A 

Q 

MAX 
B4 
ZING 
SA569 

and some illegal ones are 

3ADD (number first) 

5 (that's not a variable, that's a number) 
FOOI (illegal character - not A to Z or to 9) 
&ALL (not A to Z first, also illegal character) 



BUT, but, but the System 
.SPEED or SPLAT ?*? 




cD=Ss 



80 only looks at the first two letters, so 
be careful naming variables. While saying 
SPEED certainly makes a program more 
understandable for humans than just using 
SP it can be hard to notice that two 
COMPLETELY different variable names look 
the same to your computer! 
eg. System 80 would see no difference 
between SPEED and, say, SPLAT. 



_ Also, if you use long variable names you 
have to be careful not to include any 
letter sequences that are used elsewhere in BASIC (these are called 
reserved words). So DISTANCE is illegal because TAN has a special 
meaning ; See Appendix A for a list of reserved words. 



OK, back to our program line. 

30 DI=5P*T 

What this says to the computer is to multiply (*) the variables SP 

and T together and put the result in the variable DI. Even though 

you could read that line as "DI equals SP times T" it does not really 

mean "equals". A better way to say "=" might be "takes the value of". 

Now we have the 'gutsy' bit of a program, but we haven't given SP and 
T any values! (Actually, variables always have some value. If System 
80 has not been doing anything else they should have the value zero - 
but that's not very useful.) 

Let's say we go for a trip and each day we drive at an average speed 
of 70km/h for about 6 hours. Nice and leisurely'. How far do we 
travel each day? That's not too tough, but let's see if your 
System 80 can do it. We need some program lines like: 

10 SP=70 
20 T=6 

When the program is RUN the variables on the left of the "=" are 
given the values of the numbers on the right hand side. 
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To speak pure BASIC one should really say "10 LET SP=70" but with 
System 80 you can forget "LET" (or put it in, whichever you prefer). 
In the examples here I'll leave it out. 

Numbers can be written like 1 or 345 or -8200 or (no commas 
in big numbers!) for whole numbers. Or for fractional numbers 1.5 
or -2395.66 or 3.14159 (this last one is "pi"). 

Now LIST your program; it should look like 

10 SP=70 

20 T=6 

30 DI=SP*T 

Right, now RUN it! 

But, hey,... nothing happened. It just said READY. Ready for what 

I ask you?? 

Aha,.. System 80 did what we asked it to do, and the computer knows 

the answer to our problem, but we did not ask it to tell us'.'.l 

Ho hum. Let's add another program line. 

40 PRINT DI 

NOTE that there are no quotation marks around DI because we do not 
want the letters printed out, but the value that has just been 
assigned to the variable DI. 

Now RUN it again. 

If you don't see 420 

READY 

>_ something is wrong! LIST the program and 
carefully check each line. Retype any lines that are wrong, or type 
NEW and go back and try this chapter again! 

Now we can get an answer out! 

It seems a bit bare though. Let's fancy it up some. Add 

35 PRINT "THE DISTANCE IN KILOMETRES IS" 

and RUN. Good! But how about writing the words and answer on the 
same line. Erase line 35 (by typing nothing for that line, remember?) 
Then try 

40 PRINT DI,"KM IS THE DISTANCE." 

HEY!! It says 420 KM IS THE DISTANCE. 

That's better, but why all those spaces?? 

The display is divided into 4 fields or areas, each 16 positions wide. 

If you put commas between things to be printed then they go into these 

fields. This lets you compile tables easily, eg. try 

PRINT 1,2,3,4,5,6 

(This is an immediate command, not a program statement!) The numbers 

are spaced out, 4 to a line. 

If you want things squashed up, use semi-colons between them. Try 

PRINT 1;2;3;4;5;6 

11 



A bit different, eh? Now let's try 

40 PRINT DI;"KM" 

and RUN of course. You could even enclose your answer by_ the text 
describing it - for instance, 

40 PRINT "THE DISTANCE IS";DI;"KM" 

Also let's add 

35 PRINT 
50 PRINT 

and now RUN. 

That really is good! Those lines that look as if they do nothing 

space the result out nicely.' 



LIST out the program and have a good look at it. If something does 
not quite make sense, go back and re-read that bit of this chapter. 
It is vital that you understand what we have done so far. 



I've changed my mind. I'm going to drive for 8 hours each day of our 
trip. How about you changing the computer's program to calculate how 
far we will go? 

I'll just sit here and contemplate my navel for a bit while you 
adjust the program . GO ON 



OK?? Well, my idea was to change line 20 to put a value of 8 into T. 
That makes our distance jump to 560km per day! 

You may have already noticed that we are off to a bad start in pro- 
gramming - no documentation! Nothing to say what the program does! 

You try saying what it does. Use a REM statement about line 5. One 
line can be almost 4 screen-lines long (System 80 stops accepting 
type-in at 240 characters) so that allows you to say an awful lot. 
However, if you want to say more just take a new line and use a new 
line number then say REM again and finish what you wanted to say. 
You can, of course, use as many REMs as you like (but don't kill any 
program lines; make sure you give the REMs unused line numbers). 

I'll doodle again while you think of what to say 



1 thought it could go something like 

5 REM THIS PROGRAM CALCULATES THE DISTANCE TRAVELLED GIVEN SP IN 
KM/H AND T IN HOURS. 

We've covered a lot of things in this chapter so give yourself a pat 
on the back and go and have a cuppa. 
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In Chapter 4 



Commands 


Statements 




Other 




variable=expression 




+ add 




LET var.=expression 




- subtract 




PRINT variable 




* multiply 




PRINT 




/ divide 

variables 

numbers 






pr 


int fields & , 
print & ; 



I'll give you a few exercises now. The answer to each is a separate 
program so you should type NEW before writing each. There is no 
"correct solution", there are only programs tha work and "them that 
don't". Everybody programs a bit differently, iiid while some answers 
may be "better" for one reason (eg. faster) they may also be worse 
for other reasons (eg. incomprehensible). 



Exercise 1. 

You have to fly from Alice Springs to Perth (blimyl). You know that 

the aircraft flies at about 400km/h and that the trip takes about 

5 hours. But how far is it? 

(We already know that distance = speed * time.) 



Exercise 2. 

You are paying off a $25,000 house loan at $280 per month for 25 

years. How much are you actually paying the lender? 



Exercise 3. 

You are Science Officer on the Starship Enterprise and you are about to 
fire a proton torpedo at a fleeing fiend. Given that the Enterprise 
is travelling at 50,000km/sec and proton torpedoes accelerate at 
2,000km/sec 2 . And knowing that V=U+A*T (V final velocity, U initial 
velocity, A acceleration and T time). How fast will the proton torpedo 
be going after 5 seconds? 

Next, with the same conditions, how far will it have gone? We also 
know that S=U*T+1/2*A*T*T (here S is distance, and the others are as 
above). 



Good luck! See Appendix C for one set of answers to these exercises. 
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5. Big numbers 

When you want to talk about very big numbers or very little numbers 
it is helpful to have a shorthand way of doing it. In fact we use 
shorthand methods all the timei For example, we buy material in 
metres, travel in kilometres and measure small things in millimetres, 
and here metre is the basic unit with kilo as a shorthand way of 
saying thousands and milli as a shorthand way of saying thousandths. 

Another shorthand form of 1000 is 10 3 . All the superscript 3 means 
is 10*10*10, 3 lots of 10 multiplied together and this "3" is called 
the power , or exponent , of 10. System 80 cannot write above the line, 
so instead it uses E notation, meaning exponent of 10. In this format 
103 could be written as E3. So if you want to talk about the distance 
to the sun, rather than saying 150 X 10 9 metres, you can express it 
for the computer as 150E9, which is simply a different way of saying 
the same thing and is understandable A^L^" 

to your System 80. It's also easier 
than saying 150000000000 isn't it? 



If that number of zeros is hard to 
write correctly, think about 1E25J! 
( 1 followed by 25 zeros ) 



^fef% 







The same number can be written many different ways; thus 150E9 

is the same as 15E10 

or 1.5E11 . 
Your computer will accept any of these forms as the same number, but 
it likes to print in the last form, and does so automatically for 
numbers bigger than 999,999. That is, the number is expressed as a 
decimal between 1 and 10 with a positive exponent. 

'lor instance, 1,732,000,000 would be printed as 1.732E+09 

and 689,000,000,000,000 as 6.89E+14 etc. 

OK, that's big numbers, now little ones. 

One millimetre - yma metres or 0.001 metres. 

This can also be written as 10" 5 where the "-" means that the number 
is divided (not multiplied) by the given exponent.... just another 
bit of shorthand. So if you want to talk about a millimetre you can 
enter it as 1E-3 and your System 80 will know what is meant. 

Again, System 80 will accept many different forms of the same number. 
For instance; 3.2E-8 

or 32E-9 

or 320E-10 will all be accepted as 0.000000032. 
But it will only be printed in the first form by System 80. That is, 
as a decimal between 1 and 10 with a negative exponent. 
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Expression of numbers in this form is called scientific notation, 
because science often deals with very large numbers (eg. astronomy) 
or very little numbers (eg. atom research). 



You may have noticed that when you enter a number using scientific, 

or E, notation if the exponent is positive you need not give it a 

sign but when System 80 prints it out the " + " is always there". The 

computer has a standard format for printing these numbers which is; 

number expressed \ exponent given 

in decimal format sign, in two digits, 
between 1 and 10 eg. 06, 26 etc. 
(may be either positive 
or negative) 



If the exponent is positive it means that the decimal point should 
be moved as many places to the right as the exponent says. If it 
is negative, then the decimal point must be moved to the left as 
many places as the given exponent. 



Exercise 4. 

If light travels at 300,000 km/sec and takes about 500 seconds to 
reach Earth from the sun, how far apart are they? Write all numbers 
in E format. 



Exercise 5. 

Try Exercise 3 again, using E format numbers, and changing 5 seconds 

to 25 seconds. 



In Chapter 5 
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E format 
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6. Getting complicated 



(NOTE: Don't worry if you find some of the maths in this chapter 
a bit beyond you. Just skip over it for now and go to Chapter 7. 
You can come back and refer to the maths later....) 



Now we can put an arithmetic expression 
together, such as 1+2*3. BUT do we mean 
1+2 then *3 OR 2*3 then +1? To answer 
this question we have an established 
order for performing arithmetic operations. 
This is called operator precedence or 
what comes first. 




7TXT 



System 80 does * and / before + and - 

Hmmm.... * and / have the same precedence - which one gets done first? 
Well, they just get done from left to right. So the answer to 6/2*3 
is definitely 9 - not 1! And 1+2*3 is 7. 

Sometimes these rules will mean that we don't get the answer we want 
without some juggling. Thus 1+2 times 3+4 cannot be written 1+2*3+4. 
Why? Think about.it...., yes, of course, it's because 2*3 is done 
first, then +1 and +4. We can use parentheses to get over this! 
Anything inside ( ) will be done first. So, to get the answer we 
want we could say (l+2)*(3+4). 



Parentheses cannot be used for multiplication as they are in written 
maths. For instance, 2(3+4) will not be calculated as twice the 
answer to 3+4. If you want this, you must write 2*(3+4). You would 
still use parentheses to compute 3+4 first but you need a multiplicat- 
ion sign too. 



That's all under control, so let's add a few more functions to our 
repertoire. If we want to multiply a number by itself we can write 
T*T. In everyday use this is T squared or T^. System 80 understands 
TC2 as the same thing, that is two Ts multiplied together. 

NOTE: There is no C key on the keyboard. To get C on the screen you 
must press (ESC] .£2 

Thus; AC5 means A*A*A*A*A 
TW0C2 means TW0*TW0 

(the contents of variable TWO multiplied by itself) 

This is a lot like E notation since it involves exponentiation, but 
it is more general because the number to be raised to the given power 
is not automatically taken to be 10. 

How could you write 9.8E5 using C ? Yes, simply 9.8*10115. 
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Another operation is unary minus or negation. This is similar to 
the minus we all know about, but refers to a complete expression. 
So if we say -A we mean negative the value in variable A. This has 
the effect of making a positive number negative, or a negative number 
positive. 



Now we can complete a table of precedence, 
this order; 

1. expressions inside ( ) 

2. C exponentiation 

3. - negation 

k. * / left to right 

5. + - left to right 



Operations are done in 



Exercise 6. 

You be the computer and work out the value of 

with System 802 ); 

1. 1+3*4 

2. (2+4)*2 

3. 2C3-1 

4. -3C2 (careful herei) 



<e (then check them 



IBB** 

a\to£r- 




While we're talking about this sort of 
thing it is appropriate to add that 
System 80 has a whole lot of numeric 
functions available. 

With all of them you feed a number in 
(the argument) and get another one out 
(the result). 

eg. with the function ABS, the 
argument is returned as a 
positive number (the result). 



See the System 80 Basic Manual for a complete list of available 
functions. These are some of the more common ones. 



absolute value - 


ABS(arg. ) 


gives argument as a positive value 
eg. ABS(3.9) is 3.9 

ABS(-19.6) is 19.6 


integer part = 


INT(arg.) 


gives whole number less or equal to 
argument 

eg. INT(5.9) is 5 
INT(-3.1) is -h 


sign = 


SGN(arg. ) 


result is -1 if<0, 0for0, 1 if>0 
eg. SGN(-5150) is -1 

SGN(19.5682) is 1 

SGN(0) is 
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square root 


= SQR(arg.) 




result C 2 equals argument 
eg. SQR(16) is 4 


exponential 


= EXP(arg.) 




result is eCargument (e= 2.71828) 


log base e 


= L0G(arg.) 




reverse of EXP, 

ie. argument - efjresult 


sine 


= SIN(angle) 




for a right-angled triangle, 

sine is the ratio of opposite side 

length over hypotenuse length 


cosine 


= COS(angle) 




ratio of adjacent side over hypotenuse 


tangent 


= TAN(angle) 




ratio of opposite side over adjacent 


arc tangent 


= ATN(arg.) 




reverse operation of TAN, 
result is an angle 




NOTE: 


an 


gles are in radians 




radians 
degrees 
and pi 


= pi/180 * degrees 
= 180/pi * radians 
= 3.14159 
eg. TAN(45*pi/180) is 1 



Exercise 7. 

You have to replace the cord in the Girl Guides' flagpole. It is a 
bright sunny day so you can get to work. With trusty protractor you 
measure the angle made by the end of the pole's shadow with the top 
of the pole as 55°. Also the shadow is 6 strides long (say metres). 
How much cord will you have to buy? 

(Hint - look at TAN & degrees to radians!) 



In Chapter 6 



Commands 



Statements 



Other 



rules of precedence 
C exponentiation 
( ) parentheses 
functions; ABS 
INT 
SGN 
SQR 
EXP 
LOG 
SIN 
COS 
TAN 
ATN 
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7. Decisions, decisions 



So far our program only goes zoom, clunk and ends. The whole point 
of a computer is to be able to do boring, or entertaining, things 
over and over (and over and over....) ! System 80 has some state- 
ments that let repetitive things be done easily. 

Type in NEW to clear things out, then 

10 PRINT "DECISIONS!" 
20 GOTO 10 

and tell it to RUN. 

NOTE: GOTO means exactly what it says. Here line 20 tells the com- 
puter to go back to line 10 and do that line again. By the way, some 
versions of BASIC require you to write GOTO as two separate words, 
ie. GO TO . With System 80 BASIC you can write it either way, but 
for convenience we'll write it as one word in this book. 



Well it sure goes! J Look at that! Do you want to stop it?? I guess 
that would be sensible. Press the 



(break) 



key. You should see 

BREAK IN 10 

READY 

>- 

Peace again! Now type CONT. T hat means CONTinue and that is exactly 
what it does! Try the ( BREAK ) and CONT operations a few times. 

f BREAK) is a command to BREAK OFF what System 80 is doing and jump 
back to BASIC and show READY. 

That was all very exciting, but not awfully useful. We need some 
more things to control that GOTO stuff. A way of stopping it after 
enough has been done would be useful. Try 

15 IF COUNT=10 THEN END 

That's a start. We could control the print with a count. Now we must 
start our count somewhere 

5 COUNT=0 

and also do the counting. 

11 C0UNT=C0UNT+1 
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Put those lines in and type RUN. 

Look at that.' It printed 10 times and stopped! Wow! That IF/THEN 
statement did all the work, and it's a beauty. Let's have some more 
fun with it. Add 

14 IF C0UNT=7 THEN PRINT "I'M NOT FINISHED YET" 



Then RUN it. Well, fancy that! 
DECISIONS! was still printed 10 
times even though there was 
another line included and extra 
words to print. 

Now that we've added these bits 
and pieces it might be a good 
idea to LIST the program. We have 

5 COUNT =0 

10 PRINT "DECISIONS!" 

11 C0UNT=C0UNT+1 

14 IF C0UNT=7 THEN PRINT"I'M NOT FINISHED YET 

15 IF COUNT=10 THEN END 
20 GOTO 10 




Line 5 is only acted on once and serves to start the counting at the 
chosen starting point. (It initialises the count. ) 

Line 10 is the fundamental line where we really carry out the prime 
objective of the program. 

Line 11 keeps track of how many times we have gone through this part 
of the program. In this instance, it is how many times the PRINT 
statement has been executed. 

Line 14 makes use of the count that we are making in line 11 and 
introduces the first of our decisions. 

When the condition C0UNT=7 is fulfilled, in other words, after lines 
10 and 11 have been executed 7 times, then the extra message I'M 
NUT FINISHED YET is printed, as you saw when you ran the program. 
IF, however, the count does not equal 7, the extra message will not 
be printed and the computer will just move on to the next line. 

Line 15 also uses the count that we've set up and stops the program 

when we have had enough. 

ie. when COUNT=10, and only then, END is encountered and System 80 

has finished making decisions. 

If the count does not equal 10, then your computer will not act on 

the rest of the line and will simply continue. 

Line 20 is the next line to be executed if the count is not 10. So, 
until the program has been gone through 10 times, System 80 will 
keep going back to line 10. 

note that it does not begin again at line 5 but only repeats the 
PRINT at line 10 then adds to the COUNT and then reconsiders the 
conditional statements at lines 14 and 15 with the new value of COUNT 
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Lines 14 and 15 are examples of CONDITIONAL BRANCHING statements. 
The program will do something else (ie. branch from the rest) if it 
passes the test given in the condition, (eg. in line 14 IF C0UNT=7) 

Line 20 is an example of an UNCONDITIONAL BRANCHINC statement. Any 
time that System 80 reaches the GOTO it will branch to the given 
destination (in this case, line 10) without condition. 



Not all programs will need an END statement (line 15). When System 
80 has executed the last statement there is nothing else to do but 
end - so it does. However, as you can see here, if you want to LND 
the run before coming to the end of your listing an EMI) statement 
can be used. In fact, often you need to include END to stop your 
computer running on to other lines when they're not wanted. 



The IF... THEN... statement can obviously be very useful and is worth 
studying more closely. Basically you can use it to make the computer 
check for a particular result or "condition", and then do something 
(or go somewhere) if it finds it. In other words',"*" you can use this 
statement to build decision making into your programs. 

In general, it takes the form; 

IF condition [HEN statement 



The condition is written; 

expression relation expression 
where the "expression" can be; 

a variable, 

a number, 
or a calculation like (A+6)*SIN(Z) etc. 

and the "relation" can be; 

= eguals 

< less than 

> greater than 

<= less than or egual to 

>= greater than or equal to 

<> not equal 



The statement can be 
any BASIC statement 
and it will be acted 
on when the condition 
is fulfilled. 

It can be PRINT or 
END as in our program, 
or GOTO (etc. ) 
or any calculation. 



Exercise 8. 

Change what we have so far put together to print "MORE" after the 

fifth line. 



In Chapter 7 
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8. Question time 



It might seem a bit annoying that whenever we want to print a different 
number of "DECISIONS!", or print "MORE" in a different place, or poss- 
ibly do something useful(.') we must change the program! 

Along the same lines, our program can talk to us (PRINT) but we can't 
talk to it. Oh yes we can! And what allows that is the INPUT statement. 



WHAT 



MANT 



To KrtOW IS. 



Let's type NEW and try this. 

10 PRINT"! WANT A NUMBER" 
20 INPUT NUM 
30 PRINT "I SAW";NUM 
40 GOTO 10 

Type RUN and try that out for a 
while. You will see a question 
mark whenever System 80 expects 
a number typed in. 



Now how about negative numbers?... Well, that's OK. 

Big numbers? Did you remember not to use commas in big numbers? If 
you do include commas System 80 will take your input as more than one 
number; the first one being the digits before the comma and the re- 
maining digits making up a different number. Since System 80 only 
asked for one number, when it reads two or more, it will display 
7EXTRA IGNORED and continue with your program taking the first digits 
as the whole INPUT number. 




Now try some E format input (well, up to about 
much above that will produce an 701/ ERROR ie. 

Have you tried long numbers? We might lose a b 
123.456789012 just comes out as 123.457 (Yes, 
it in correctly as ....56.. it will be rounded 
the precision of the number which is determined 
each number can be stored. Actually it is the 
cision of the computer, correct to 6 digits, bu 
with greater precision. However, you need to s 
before you can get this additional accuracy of 
Refer to the System 80 Basic Manual for a full 
and double precision numbers. 



1E38 anyhow. Anything 
overflow, or too big!) 

it off the end, eg. 

even if you do type 
up to ... .57) This is 

by how many digits of 
normal working pre- 
t System 80 can work 
pecially ask for it 
16 significant figures, 
description of single 



Now try some garbage. For instance, answer System 80 with 

GARBAGE 

System 80 says ?RED0. Hey that's good! It knew that was garbage! 
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If you make an illegal entry such as typing in letters when numbers 
are wanted as you just did, then System 80 gives you another chance 
to type in the correct response. 

Now change line 10 to 

10 PRINT "A NUMBER PLEASE"; 

It's better to be polite isn't it? But a more important change is 

the semi-colon at the end. RUN it and see Well.' System 80 is 

waiting for your number on the same line that he printed the request. 
That looks nice.' 

Now we can see the importance of the semi-colon. What it does as the 

last thing in a PRINT line is to wait, without taking a new line as 

would usually be done after a PRINT. So subsequent PRINTs will go on 

the same line, and input will go next to the printed question! 

That is useful in its own right but, as it happens, there is an even 
simpler way to write the input. Programs ask questions and want 
answers so often that BASIC allows the INPUT statement to include the 
question too. Delete line 10 and change line 20 to 

20 INPUT "A NUMBER PLEASE" ;NUM 

Make sure that separator is a semi-colon as nothing else will do, not 
even a comma! RUN it again and it should look just the same. 

Oh, did you notice? We took out line 10, but left in 40 GOTO 10. 
So we got the message ?UL ERROR IN 40 ie. unlabelled statement, or 
"10" does not exist. Change 40 to 

40 GOTO 20 

Now we're back in business. 



Exercise 9. 

Write a program to include an INPUT that can control how many times 

you print "QUESTIONS!". 



You can ask for more than one item to be typed in with any INPUT line. 
When you're typing them in you'll need to use a comma to separate the 
items and this time the comma won't mean the rest will be ignored as 
it was before because System 80 will be expecting more than one INPUT 
item this time. As an example here is a short program that uses what 
we have looked at up to this stage. 

10 INPUT "MAY I HAVE TWO NUMBERS" ;A,B 

20 IF A>B THEN GOTO 50 

30 PRINT B;"IS THE LARGER NUMBER." 

40 GOTO 10 

50 PRINT A; "IS THE LARGER NUMBER." 

60 GOTO 10 
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When you RUN this you may discover another aspect of System 80' s 
operation. If two numbers are expected and only one is typed in 
System 80 will display two question marks on the next line to remind 
you that more input is wanted. So you really get quite a few chances 
from System 80 to type in acceptable input. — 



Exercise 
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Now for some fun and games.' 

Here is another program that makes use of just about everything we 
have done so far. Astute observers are invited to plug the various 
loopholes in this little gamel And, oh yes, it is possible to land 
without cheating! 

100 REM SPACE LANDED 

110 HEM SETUP 

120 HT=b0000 

MO SP=800 

1«0 FJEL=H000 

ISO PRI^T 

lfaO D RINT"MANUAL LANDING ON TITAN-REPORTS EVERY 10 SEC" 

170 P R I : M T 

180 PRINT" HEIGHT", "SPEED", "FUEL", "RATE" 

190 PRI>jT" M% M M/SEC%" KG", "KG/SEC" 

2C0 REM MAIfg LOOP 

210 PRINT INT(HT) , INTCSPD ,INT(F(JfcL), 

220 RATE=0 

230 IF FlJFL>0 THEN INPUT RATE 

200 IF FUEL=0 THEN PRINT 

2S0 REM PHYSICAL MODEL 

26 ACC=1.6<4-1R32*RATE/(12000 + FUEL) 

270 MT=HT-10*SP-0.b*ACCMOO 

260 IF HT<0 THEN HT=0 

2R0 FUEL=FUEL-10*RATE 

300 IF FUEL<0 THEN FuEL=0 

310 5P=SP*10*ACC 

320 IF HT>0 THEN GOTO 200 

«00 REM END OF RUN 

410 IF SP<15 THE* PRINT"SAFE LANDING A T " ; SP ; "M/SE C " 

020 IF SP>=15 THEN PRINT"THERE IS NOW A NEW CRATER"; 

INT(SP/15);"M DEEP" 

If there is anything here that you can't grasp now, don't worry. Wait 
till you've had more experience with programming and you can come 
back later and work it out. However, this program shows what you can 
do with only our limited repertoire. It shows how powerful System 80 
can be and what a terrific help, not to mention time-consumer. When 
you start playing and writing games like this you can spend hours on 
it and never be seen again. 
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9. A little help 



Sure, you have to do the programming, but System 80 provides a couple 
of commands to cut down on the amount of typing you have to do. 






The first one lets System 80 number 
the lines for you 1 Type 

AUTO 

System 80 says 

ML 



to ask for the statement for line 10. 

For instance, we could say (on the same line as 10) 

PRINT "HI!" 



After you press NEW LINE , System 80 will store away that line as 
line 10 then ask for the next line by displaying 

20_ 




If you just press [ NEW LINE ) then, since you haven't entered anything, 
there won't be any line 20 in your program. System 80 just goes on to 
the next line and asks you to put in something for line 30. Let's 
write a few lines such as; 



30 PRINT "NOW IS THE TIME" 
40 PRINT "FOR ME TO SHOW YOU" 
50 PRINT "THAT I'M NOT JUST" 
60 PRINT " A PRETTY FACE." 
70 PRINT 
80 PRINT 
90 PRINT 



"1 CAN HELP YOU IN" 
"ALL SORTS OF WAYS.' 



NEW LINE 
"NEW LINE 
( NEW LINE ") 



CNLW L1NL 1 
[ NFW I TNF ) 
I NEW LINE") 



Well, that's enough isn't it? But System 80 doesn't seem to think so. 
Gee, we've got to stop this somehow! The computer just keeps asking 
for new linesJ OK, to break out of this seguence just press ("BREAK ) 
and you'll see the good old 

READY 
>_ 

Now you could ask for a LIST or whatever seems appropriate. 

You can also use AUTO to add on to what has already been done by typing 

AUTO line number 

where "line number" is the number of the next line to be entered. 
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For example, AUTO 100 will continue from where we stopped before. 

As if that's not enough, you can also say 

AUTO line number, increment 

this lets you change the AUTO stepping amount or increment from the 
normal 10 to any size you like. 

If System 80 discovers that you already have a line where the AUTOmatic 
line numbering has got to, it displays an asterisk (*) after that line 
number. 

If you press (NEW LINE J you will delete the previous contents of that 
line so , if you want to leave it undisturbed, you will need to press 
( BREAK) to get out of the routine. Then, if you want to get past the 
particular line, you can retype AUTO with a later line number. 
Otherwise, when System 80 tells you that you already have a line at 
that line number, you can just type in a new statement to replace the 
old contents. 

System 80 also lets you undo all that good work you've done with AUTO. 
Say you put a whole collection of lines in the wrong place. (That 
never happens to me - no, no!) You could type in each of their line 
numbers to delete each line OR to delete the lot type in 

DELETE start line - end line 

So DELETE 10-90 will remove what we've done so far. We could also 
delete those lines by typing 

DELETE -90 

which will delete everything from the first line of the program, up to 
and including line 90. The "end line" must be an existing line or you will 
get ?FC ERROR meaning System 80 can't work with the given number. 

However the "start line" need not actually exist and System 80 will 
look for the next line following that number. For instance, 

DELETE 5-20 will give ?FC ERROR because there is no line 20 

in our program. 
DELETE 5-30 will clear lines 10 and 30, and 
DELETE 55-80 will clear lines 60, 70 and 80. 

You can also delete one line by typing DELETE line number, eg, DELETE 70 
would remove the spacing line from our program. So, now we know of two 
ways to delete a line. We can be positive and say DELETE line number 
or just type in its line number with nothing following. 

In Chapter 9 
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DELETE line - line line* in AUTO 
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10. Just a calculator 



Remember how we have said things like PRINT "HI" and PRINT 3 just to 
check how things work? (In Chapter 2) This use of commands is called 
calculator mode or immediate mode operation and, as the name implies, 
you can use that sort of operation to do calculations. 



So try typing in 

PRINT 1+2 

You should see the answer immediately 1 That's very significant] 

System 80 has worked out the little expression you gave it (ie. 1+2) 

before doing the PRINT of the result. It will do the same thing for 
very complicated expressions too. Try 

PRINT 5E4*5+1/2*2000*5C2 

Wow, that's the whole of 
Exercise 3 part 2 in one line] Or 

PRINT 2*6*TAN( 55*3. 14159/180) 

That's Exercise 7 in one line. 



If you are doing a lot of calculator type work, saying P-R-I-N-T 
might get a bit tedious, so System 80 has a quick way of saying PRINT 
which is just the character ?. Try typing 

?"THIS IS STILL SYSTEM 80 SPEAKING." 

or 

? 1+2 

which is a lot shorter than our first entry in this chapter but still 
gives the same result] 




Exercise 11. 

Get an immediate solution to give a rough value for your age in hours 



Although we're talking about System 80 operating in immediate mode, 
it is a consistent machine, and some of what we have done can be 
applied to programs. For instance, a PRINT statement does not have 
to only be given "TEXT" or variables to display. An expression in a 
PRINT line in a program will be calculated and the result printed. 
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The one-line solution to Exercise 7 can similarly be programmed as, 
for instance, 

10 REM ALT SOLUTION TO EXERCISE 7 

20 PRINT "CORD IS" ;2*6*TAN( 55*3. 14159/180) ; "M LONG." 

That's more to retype if you get the expression wrong but it is a 
lot shorter. 



3ust another little thing. We used ? as shorthand for PRINT. Well, 
the question mark can be used in a program tool You can enter the 
short form, but if you type LIST then System 80 will expand it to 
PRINT. Question marks in other places will stay question marks, but 
as a statement they become PRINTs. 
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11. Program saving 



You can write quite complicated programs now but, if you turn off the 
System 80 everything will be lost! So., you could leave your computer 
on all the time and preserve ONE program (not really recommended), 

OR you could type your program back in each time you want to use 

it (that's a daunting prospect, not to mention a boring and time- 
wasting exercise). 



BUT, of course, there is another 
way and System 80 is already pre- 
pared for it. Programs can be 
recorded or "saved" on an audio 
cassette and System 80 has its 
own cassette recorder built in! 

This single fact places System 
80 ahead of quite a few other 
small computers because there 
are no troublesome adjustments 
of volume or tone settings to 
mar its usefulness. 




To check out the procedure for program saving we'll need a little pro- 
gram. How about 

10 PRINT "IT'S ME:" 

Wow, that's really sophisticated! 

First step, obtain your cassette tape. An ordinary audio tape is fine, 
though preferably not too cheap - faults that wouldn't worry your ear 
too much could wreck a program! 



Lock down the grey key ( Fl ") , and the red light next to it should light. 
This puts the cassette under local (or your own) control, rather than 
System 80 's influence. 

Insert your cassette and rewind it. Now eject it again(!) and 
manually wind it past the non-recording leader until you see the brown 
tape coming through. Then insert it again. 



Press (_F1 ) again to release it (and the red light goes off). The cas- 
sette is now (partially) under System 80 's control. 

Hold down the "RECORD" key on the cassette player and lock down "PLAY". 
Both should stay down but the tape shouldn't move yet. Type in 

CSAVE "M" 
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This is the instruction to save your program as a file called "M". 

NOTE that quotation marks must be used or you'll get a ?TM ERROR 
ie. your type-in doesn't match what is wanted. 

The tape should run for about 3 seconds with the red light on. Then 
the System 80 will stop it and display that it's ready again. Press 
"STOP" on the cassette player. 

Well, that seemed OK, but did it really work? Let's check. 

Press ( Fl J down again for local control and rewind the tape. Release 
(TT) and press "PLAY" (not "RECORD" this time). Then type 

CL0AD?"M" 

ie. load-check from cassette file named "M" to see that what you have 
just saved does, in fact, correspond with the program in System 80. 
The tape will move again and when the beginning of the program is 
found ** will appear at the top right of the display screen. 
The right * will flash for each program line recognised. 

If both ** just stay on continuously, or they don't ever appear, 
then some sort of error has occurred. Press the "RESET" button at 
the left back of System 80 (from the top) 
to stop the computer looking at the tape. 
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If all is well and the cassette program matches the program inside 
System 80 then the READY display will be shown. If they do not match 
you will see 

BAD 

READY 

>_ 

In this case, go back and save your program again. 



When your program is saved and the check is satisfactory, the next 
step to try is to load the program from cassette into System 80 's 
memory. Type NEW t o clear things out, rewind the cassette and set it 
to "PLAY" with [ Fl ) up. Type 

CL0AD"M" 

Those ** should appear again, then at the end of the load System 
80 will let you know that it's ready to accept type-in again. Type 
RUN and System 80 will run your test program and print 

IT'S me: 

That's full cycle:- out to cassette, 

check, 

clear System 80 
and read the cassette back in J 

When you have saved more programs on a tape and you specify one to be 
loaded, System 80 will search for and load only the program that you 
have asked for by name. Besides being enclosed in quotation marks 
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that name must be a single character only. Then, to let you know what 
is happening, System 80 will replace the left * of the display with 
the letters of the programs it finds on the tape before it gets to the 
program you have specified. 

To summarise ,- 



Fl J key red light 



to position 
the tape 



Fl 

down 



on 



local tape control with 
REW FF ST0P-E3ECT 



and 



QpffiQ 



tape counter 



to record 
on cassette 



up 



off 




then CSAVE "name" 



to check 



PLAY 



off 



up 



then CLOAD?"name" 



to load into 
System 80 



up 



PLAY 



off 



then CL0AD"name' 



The System 80 User's Manual has further details on cassette use. 

As an added bonus, System 80' s cassettes are compatible with those for 
the Tandy TRS-80 Level II computer. This means that any of the large 
number of program cassettes available for the TRS-80 Level II may be 
used with your System 80. 
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12. Again & again 



There are many times when you will have a little bit of program that 
has to be gone through a number of times. Often this number of times 
is known, or at least, can be worked out. 



To continue with a somewhat trivial example. Some time ago you wrote 
a little program to print a bit of text ten times (in Chapter 7). 
There you set a counter to zero, 

did the print, 

counted it, 

then checked that the required part of 
the program had been done ten times. 

Perhaps that seemed a bit complicated for 
what we were doing, though easier than 10 
different PRINT statements! The people 
who designed BASIC agreed and to cut down 
the work a bit, we can write 

10 FOR C=l TO 10 

20 PRINT "AGAIN" 
30 NEXT C 




J. .»-£>- -V 



Try typing that in and running it. It's a much more satisfactory way 
of achieving the same result isn't it? Oust as before, we can add 
something, like 

25 IF C=5 THEN PRINT "AND" 

and the extra word will be printed using the same counter "C" that we 
set up for the earlier part, without disrupting the loop. 

What we have here are two statements, in this case lines 10 and 30, 
that must be used in association: 

FOR variable=start TO end 
statements to be executed 



NEXT same variable 

The FOR statement sets the variable to the start value (a number, 
another variable or calculation) and remembers the end value. 

The NEXT statement adds one to the counting variable, and compares 
it to the end value. If it is less or equal, then the statements 
between FOR and^NEXT are done again. If greater, then the statement 
after the NEXT "is done. 

ie. that set of statements between FOR and NEXT is executed 
for each possible whole number from start to end. 
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If you miss out the FOR, or more probably, get the variable name 
wrong in the NEXT you'll get a ?NF ERROR message ie.NEXT without FOR. 

If you miss the NEXT you won't get an error, but you a4so won't get 
any looping. 



Exercise 12. 

Print the values of X for X=l to 10. 



That was a terribly easy exercise wasn't it? But it was just to make 
sure that you could set up a working loop. And it also serves to 
introduce our next point, which is that the variable used to count the 
number of passes through the FOR/NEXT loop may also be printed out or 
used for other purposes. BUT it should not be changed. 

For example: 

If a man is paid $1 for his work on the first day, $2 on the 
second day, $4 on the third day, and so on, with his pay doubling each 
day this FOR/NEXT loop could be used to work out how long you could 
afford to employ him if you have $1000 for paying him. 

10 PAY=0 

20 FOR A=l TO 500 

30 PAY = PAY + 2C(A-1) 

40 IF PAY = 1000 THEN GOTO 80 

50 IF PAY > 1000 THEN GOTO 70 

60 NEXT A 

70 A = A-l 

80 PRINT "HE CAN WORK"; A; "DAYS. " 

90 END 

If you enter this program and run it you may be surprised at the 
answer. But if you don't believe it try adding some lines to print 
out some other bits of information like his pay on his final day. 

The program as written does the following: 

Line 10 sets a variable that we wish to use in calculations, to the 
starting point of zero (initialises the variable). 

Line 20 begins the FOR/NEXT loop and sets the end value of the count 
variable to 500. This value is determined by the conditions of the 
problem. Since $1000 is the limit of the pay he can get and his pay 
will double each, day, then $1000/2 should give an ample number of 
passes through the loop. It doesn't matter if this number is too big 
because the looping will be by-passed at the appropriate stage by the 
IF... THEN... statements of lines 40 or 50. 

Line 30 uses the count variable in a calculation to work out his pay 
so far. On the first day, when A is 1, his total pay is his previous 
pay ($0) plus $2C(1-1) which is $1. On the second day, when A is 2, 
total pay is previous pay plus $2C(2-1) etc. 

Line 40 says that if the total pay has reached the available financ- 
ial limit, then no more calculations need to be done and the answer 
can be given. 
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Line 50 says that if the total pay has exceeded the limit without 
actually reaching exactly $1000 then we have gone too far. Obviously 
no more calculations need to be done so we'll branch out of the loop 
and get the answer. 

Line 60 is reached if the total pay is not yet enough to cause branch- 
ing at lines 40 or 50. This is the end of the loop and simply says 
that if A is not more than 500 the program returns to line 20. 

Line 70 is the line jumped to if we have gone too far (ie. from line 50) 
It says that A should be 1 less because we can't afford to pay so much. 

Line 80 is reached both by ordinary progression of the program from 
the previous line and by the branching in line 40. It simply gives 
the answer using the variable A to tell us how many days he can work, 
ie. how many times we had to pass through the loop. 

Line 90 ends the run. 



Exercise 13. 

Print the values of X and XC2 for X=l to 10. 



Hey, look at that exercise. 

You've generated a tablei 

It's not very complicated but it sure 

shows how to go about it. You get an 

expression for one entry of your table 

then use FOR/NEXT to run through all 

the values you want in the table. 

Now try this one. 




Exercise l^f. 

Generate a table of SIN(X) for X as 0, 0.1, 0.2 2.0 

(Hint - think about X from to 20.) 



Now you can use your System 80 to generate 6 figure log. and trig, 
tables. Didn't you always want to do that? 



Actually there is another little fiddle to let you do things like 
Exercise 14- a bit more easily. You can say 

10 FOR X=0 TO 2 STEP 0.1 
20 PRINT X, SIN(X) 
30 NEXT X 

Not bad eh? You get a default step size of 1 if you don't specify 
a STEP number, bat you can state precisely what you want if you'd 
rather something different. You can use any step size you want, 
including negative steps! 
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However some combinations don't work so well, for instance STEP 
never finishes or changes I Also, for a negative step, the end should 
be smaller than the start, eg. 

... FOR C=12 TO -6 STEP -1.5 

You can see what that means can't you? It counts backwards, down to 
-6 with a negative step size, in other words, subtracting 1.5 each 
step. 



Chapter 12 



Commands Statements Other 



FOR 

NEXT 

FOR STEP... 

NEXT 
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13. Stop it! 





Here we will talk about different 
ways of stopping different things. 
Delaying, pausing or terminating 
programs or listings... wow! 

We've already talked about using 

the END statement to t erminat e a 

program, and pressing ( BREAK ) to 

stop a running one. However, 

there is another sort of pause. 

You can use the statement STOP 

(in a program) which will transfer 

you to immediate mode. When you want to go on, type CONT and your 

program will continue at the statement after the STOP. 

eg. type NEW and 

10 PRINT"ST0P" 
20 STOP 
30 GOTO 10 

When this is run you should see 

STOP 

BREAK IN 20 

READY 

>_ 

Type in CONT to go round again. 

If you didn't have line 20 and the program didn't stop, then you 
could have used the ( BREAK") key to stop the run and you would have 
seen the message 

BREAK IN 10 

READY 

>_ 

and to continue from that you could also have typed CONT. 

If you type CONT at the wrong time, for instance when System 80 hasn't 
previously come to a stop OREAD or STOP), you'll get ?CN ERROR 
ie. how can I continue when I haven't even stopped? 

You can do a similar kind of stop just from the keyboard. Let's 
change the program by deleting line 20. Now it will just run, and 
run... Try holding down ( SHIFT ) and pressing the key with(@J. 
The program is -now "suspended". It has stopped but did not show 

BREAK or READY . 

In this state System 80 is not ready to accept any input from you, 
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it just lets you have a good look at what's on the screen (though 
this lot isn't very interesting). In fact, you would most probably 
find if you tried to type something in that the program ^yould just 
start running again becau se pres sing almost any key will send it on 
its way once more (only ( SHIFT ) doesn't do anything and ( BREAK ~) will 
give a fully-fledged break plus a return to immediate mode). 

You can do another sort of pause with a delay loop. In this loop the 
program will look as if nothing is happening, but your ever -faithful 
System 80 will still be working away. To see this, try typing NEW and 

10 PRINT "WAIT A SECOND." 
20 FOR C=l TO 345 
30 NEXT C 
40 GOTO 10 

Here lines 20 and 30 form a delay loop, because line 30 tells the com- 
puter to add 1 to the counter C, then jump back to line 20 until it 
reaches the limit in the FOR statement, in this case 345, ie. it has 
to "loop back" 345 times and this takes about a second. To vary the 
delay time, change the limit from 345. For example, a limit of 3450 
gives about 10 seconds. 

OK, now to listings. Someday, with luck, you should have a listing 
longer than 14 lines. When that happens, and you type LIST, the first 
lines will disappear from the top of the screen before you have time 
to see them] If you want to make the listing pause, press the [ SHIFT ] 
and f@") keys. Yes, that works for listings as well as programs. To 
continu e press a key as before. Another way to stop it is to press 
(. BREAK ] and not only will the listing stop but you will also get the 
old familiar message 

BREAK 
READY 
)_ 

meaning that it's your turn to type in something. But, unfortunately, 
since we've broken out of the listing you can't just type CONT to see 
the rest. However you can see the remainder of your program listing 
by asking for a LIST from the line number that you stopped at. eg. if 
the last line displayed was 1050 ... you can get the rest by typing 

LIST 1050- 

Yes, that little dash is part of something bigger. You can say 

LIST 

to list a whole program or 

LIST start-end 

to list from line "start" to line "end", then you can break that up so 

LIST start - 

lists from the chosen "start" line to the end of a program and 

LIST -end 

lists from the beginning to the chosen "end" line. 
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Also LIST line number 

(without the dash) will list a single line only. 

Now we can go back to our original problem and have another look at it. 
Unless you move very quickly, you will not be able to stop a listing in 
time to see the first few lines of your program. But now we know a 
better way don't we? Right: Ask for a listing of the starting lines only. 

Easy isn't it? You can just list any part of a program that you want 
instead of having to start at the beginning every time. For instance, 
if you are writing a program and you have already checked the first 
half, you can ask for only the later lines to be listed and System 80 
will jump to the lines you want. You can use any line number., if it 
doesn't exist System 80 will just take the next one. 



At this point I will add that something similar can also be done for 
running a program. You can RUN from a line number, so that again, you 
don't have to start at the beginning every time but can just look at 
the relevant part immediately. However with a RUN, the line number 
used has to be one that exists in your program or you will get a 
?UL ERROR ie. no such line. 



Let's summarise this bit. 



Terminate 
Long pause 
& Restart 
Delay 



Program 


Listing 


Statement 


Type-in 


Type-in 


END 

STOP 

type in CONT 

FOR... 
NEXT loop 


(BREAK) 
( BREAK ) 
RUN line no. 


(BREAK) 
(BREAK) 
LIST line no. 


( SHIFT X @ ) 


( SHIFT )[ @ ) 



Exercise 15. 

Write a program to be an interval timer. 

and indicate its end. 



Ask for the interval length 



What if your program somehow manages to go really berserk , so th a t 
nothing hap pens whe n you try to stop it running with the ( SHIFT ) QQ 
keys or the ( BREAK") key? This can happen 1 

When it happens, don't panic. You still have a card up your sleeve. 
At the left back of System 80 there is a small button marked RESET. 
If you press it System 80 should stop whatever it is doing and display 
READY. RESET returns control to you and will leave the program in 
System 80 intact. 

If even this fails you'll have to turn System 80 off!! Sorry about that. 
To add insult to injury, don't forget that you need to wait 15 seconds 
before you turn it back on or you won't get any sense from System 80. 
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14.Laying it out 



Now let's have a look at some things to help in setting out PRINTs. 
We've already learnt a few ways to let us make a printout look more 
readable and ordered. For instance, we know about including blank 
Print statements to space out lines nicely and we can make a table 
of our results by using commas in the PRINT lines, or we can keep 
relevant things together by using semi-colons. 

So what else do we need to know? 

One more instruction that can help you to set out your printout is 

the TAB function. 

.. .PRINT. . .TAB( column number)... 

where the subject material of the PRINT that follows the TAB will be 
printed beginning at the indicated column number (columns are numbered 
to 63 from left to right). 

The TAB instruction is similar to the use of commas in a PRINT where 
things will be printed in "fixed zones". But with TAB you can deter- 
mine for yourself how far apart the columns will be. Try typing and 
running the following. (Don't use commas, because System 80 will get 
confused about whether to use the fixed zones or your chosen columns. 
You can leave out the semi-colons and get the same result, but I put 
them in for the sake of readability.) 

10 PRINT"A";TAB(15);"B";TAB(30);"C";TAB(45);"D" 
20 PRINT 1;TAB(15);2;TAB(30);3;TAB(45);4 
30 PRINT -1;TAB(15);1TAB(30);-1;TAB(45);1 

You can see that with the same TAB numbers, the digits are offset one 
space from the letters. This is because the System 80 allows a space 
before any number, positive or negative, to give its sign, and you 
can see that in the third line this was needed. 

The TAB function provides a simple way to plot out a numeric function, eg. 

10 REM PLOT SIN(X) 

20 FOR X=0 TO 3 STEP 0.5 

30 PRINT X;TAB(SIN(X)*30);"*" 

40 NEXT X 

Voila.' A sine curve. Since these sine values will range between and 1 
we multiply SIN(X) by 30 to make the argument for TAB (ie. a column 
number) a reasonable size. In this example the "*" will appear between 
columns and 30, depending on the value of SIN(X). 
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A complete plot of sine will include negative values of SIN(X) too. To 
plot these they must be converted to positive arguments for TAB and 
the earlier values plotted will need to be "moved over" on the screen. 

So if we add the same value to all of them (say 30, to approximately 
centre the zero value on the screen) we will be able to get a con- 
tinuous plot. With these points in mind, see if you can change the 
program to give one complete cycle. 

These lines would do the trick. 

10 REM FULL PLOT OF SIN(X) 

20 FOR X=0 TO 6 STEP 0.5 

30 PRINT X;TAB(SIN(X)*30 + 30);"*" 

40 NEXT X 

AhJ At least line 40 didn't need to be changed. 

You see that some of the curve got flattened on the left. Here, the 
TAB column number was less than what had already been printed and the 
TAB call was ignored. If you want to see the complete curve the arg- 
ument for the TAB call will need to be changed - you could change 
the scaling factor (ie. multiply SIN(X) by something smaller than 30) 
and/or alter the offset (add 35 instead of 30). 

Could you tell what determined the end value of the loop? Well, since 
the function S1N(X) works with values of X in radians, X needed to be 
pi to plot the positive values, and for our purposes 3 was near enough. 
To give the full plot a value of 6 or 6.5 (when you're stepping by 0.5) 
would give an end value near 2 pi which is 6.28... I chose 6 simply 
because it was twice 3 and gave as much again as we had in the first 
half. 

TAB arguments greater than 63 go on to the next line, but 255 is the 
largest legal argument: A negative number or more than 255 gives a 
?FC ERROR ie. function call error - the argument given will not work 
in that function. 



Exercise 16. 

Generate a plot of XC2 for X from 1 to 7 with 0.5 steps. 



Exercise 17. 

Plot SIN(X)/X for 1 to 14. 



If, in the course of your program, you want to find out the current 
character position in a PRINT line then you can use the POS function. 
The argument for this function need have no real relevance in your 
program; it can be any letter or number, eg. try 

10 INPUT "NUMBER ";N 

20 FOR 1=1 TO N 

30 PRINT "*"; 

40 NEXT I 

50 PRINT POS(0) 

60 GOTO 10 
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and you will see a row (or more) of asterisks on the screen plus a 
number telling you how many character positions in the line have been 
used. For this function the positions are numbered 1 to 64 inclusive 
from left to right across the screen and begin again for each new line. 



The TAB function gives you an easy way to set out results in an 

intelligible manner but of course there are other things you can do 

to make your printout look good or to emphasise the headings or just 
to separate things. Try typing 

10 PRINT "THIS WILL BE FUN." 

20 PRINT 

30 FOR X=0 TO 60 

40 PRINT "*"; 

50 NEXT X 

60 PRINT 

70 PRINT 

80 PRINT "DID YOU LIKE IT?" 

90 PRINT 




Line 60 had to be included to finish off the row of "*" because the 
statement in line 40 ends in a semi-colon (so would print the next 
thing on the same line). Line 70 was included to PRINT another space 
to set things out clearly. 



You can play around with these statements to give all sorts of effects 
in your printout and to make the information in your display easier to 
read. 
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15. Inside out 



We've already talked about FOR/NEXT loops, but this chapter will 
continue our acquaintance. Here we will have a look at "nested" 
loops. That just means putting one inside another, like a nest of 
coffee tables... 



Using the one-second timer from Chapter 
13 we can now make an egg timer. 



vrr 7 -^n) 



10 REM EGG TIMER FOR 3 MINUTES 

20 FOR S=l TO 3*60 -« 

30 FOR C=l TO 345 

40 NEXT C 

50 NEXT S 

80 PRINT "TAKE IT OFF!" 

Here lines 20 and 50 form one delay loop 
and lines 30 and 40 another delay loop. 

NOTE: the 30/40 loop is fully inside the 20/50 loop.' This means that 
the 30/40 loop must be fully completed (345 loops) each time the com- 
puter goes around the 20/50 loop (and it goes around this outer loop 
3 times 60, or 180 times). So the outer loop counts the number of 
seconds wanted, while the inner loop provides the basic delay for each 
second. 




Lxercise 18. 

Using nested loops write a program to give a countdown to blast-off, 

counting off the minutes and marking the final time. 



FOR/NEXT loops can be nested to any desired depth (ie. you can have 
as many loops inside loops, inside loops as you can work out how to 
use). BUT, the FORs and NEXTs must all be matched up correctly. So 



FOR A.. 
FOR B.. 

FOR C. . 

NEXT C 
NEXT B 



NEXT D 



NEXT A 



a 



FOR D... 



(WOW J) is OK, but 
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FOR A... 
FOR B... 

NEXT A - 
NEXT B - 



\ 



is not nested and will fail with a ?NF ERROR message (ie. NEXT without 
FOR) at the line that says NEXT B, since when System SO reaches that 
line, it will have completed the A loop which contains the FOR B line 
and it will be inaccessible. 



Now we've seen how you can use nested loops and that you can't put 
half a loop inside another and the other half outside. However you 
can break out of a loop quite legally by using a conditional branching 
statement. For instance, type NEW (or if you don't want to type it 
in again, CSAVE your countdown and we'll use it 'ater) then try 

10 FOR A=l TO 10 

20 PRINT "ALL THIS WORK!" 

30 FOR B=l TO 2 

40 PRINT" OH BOYI" 

50 NEXT B 

60 IF A-it THEN GOTO 100 

70 NEXT A 

100 PR INT "I'VE HAD ENOUGH 1" 

Actually, that program just zips through without really looking as if 
System 80 has to work too hard, doesn't it? It might be better to in- 
clude some delay loops to make it look more effective. Add 

15 FOR X=0 TO 250 

16 NEXT X 

25 FOR X=0 TO 250 

26 NEXT X 

(It was just as well we had spare line numbers •■ "n't it?) That looks 
better. System 80 said that it had done enough ,fi.er only 4 cycles, 
even though we'd originally set it at 10 cycles, because line 60 told 
it to jump out of the loop - so it did. 



Exercise 19. 

Let's have some more fun with printouts and launch some rockets! 
We'll do this in a series of steps to build up a program. (This is 
not only a fun game, but also a serious programming exercise.') 

1. Starting at line number about 200 write PRINT statements to make 
a rocket. You may want more than one element in the body. 
(Hint - use "A" for the top, 

"H" for the body elements 
and !1<CA>" for the tail.) 

Run this bit of the program, and make changes if you need to, till 
your rocket looks OK. 



45 



2. Starting at about line 300, make a loop to generate an exhaust. 
Put in a delay loop of about 100 counts between each exhaust 
element to slow it down a bit. 

(Hint - make about 8 lines with "*".) r ~ 

Again, run this till it looks good. 

3. Start at about line 400 and make a similar loop, but with blanks 
(and delays) to space between rockets. 

k. Put a final loop right round the program to launch 10 rockets. 



Wasn't that worth it? Now you can add Exercise 18 to the beginning 
of your rockets program and have a dandy little display that you 
wrote yourself, to show all your admiring friends. 
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16. Debug it! 



BUGS, the perpetual enemy of computer programmers^ In this chapter 
we are going to talk about a few types of fly swatters. 



Actually, we're not dealing with in- 
sects, arachnids, or shop specials on 
plastic swatters. "Bugs" in a program 
are errors that are not catastrophic; 
the program just doesn't work properly.' 
Really, catastrophic errors are not too 
bad. If you get a message like "?SN 
ERROR IN 60", then you know that it is 
line 60 that needs looking at. However, 
bugs hide. You know something doesn't 
work, but where is the error? 




<^° 
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On with that in a moment. But first I should say that the presence 
of bugs is an integral part of programming. Not a desirable part, 
but for programmers from rank amateurs to hardened professionals, 
ever present and unavoidable. The trouble is that computers do exactly 
what you tell them to do. System 80 can't tell whether a seguence of 
statements doesn't quite make sense, or if it is OK. It just does it: 

Down to business. Let's assume that we've written a program, but now 
that we run it we can see that it doesn't work (or at least not the 
way it was meant to). Oh, the pain of it alii What now? Well, the 
thing to do first is to look carefully at what did actually happen, 
and to try to work out from that what went wrong. Then try listing 
the program and checking your hunches. 

In fact, an examination of your program could be enough. Have a good 
look at it, for statements that send the program to the wrong desti- 
nation, necessary statements that aren't there, or calculations that 
take the wrong argument or . . . No luck? Well, now you'll have to 
pretend to be the computer, and work through your program line by line 
doing just what the statements say, until the error becomes obvious. 

To make this easier, you can temporarily put in some extra PRINT 
statements, and try running it again. Statements like 

55 PRINT 55;"A=";A 

to show the value of variable A, while also giving the line number to 
remind you what part of the program it came from, and identifying text 
to say what va4-ue we are printing. If you just want to see that the pro- 
gram is going to the right places in the right order, you could include 

55 PRINT 55; 
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ie. just show the line number. That semi-colon at the end lets a lot 

?iH#nrS > J« S ^Vl ° ne screenfu11 - Remember that you., can press 
I SHIFrj LfJto check how these numbers are going at any time. 

To get the hang of the sort of debugging that needs to be done, we can 
look at a little program with inbuilt errors: The program we've qot 
is one intended to print out the prime numbers (those that can't be 
made up by multiplying two smaller numbers together). The idea behind 
the program is to take every odd number - obviously even numbers can't 
be prime, because they are divisible by 2 at least - and divide it by 
each number up to its square root to see if there is any whole number 
(integral) result. Those numbers that give no whole number result 
should be printed out as the prime numbers. 

10 REM PRIME NUMBERS 

20 FOR N=l TO LIMIT STEP 2 

30 FOR P=l TO SQR(N) 

40 IF N/P=INT(N/P) THEN GOTO 70 

50 NEXT P 

60 PRINT P 

70 NEXT N 

Run this and nothing happens! Try 

25 PRINT 25;"N=";N; 

and run it again. You'll see " 25 N= 1" only! It went one time 
round the main loop.' J Why?... 

Oh yes, we didn't set LIMIT to anything.' Add 
15 INPUT "LIMIT";L1MIT 

Run it again. A limit of 5 should produce 1,3,5. Our debug line 
shows that we really did the outside loop 5 times with 5 different 
values but we didn't get any printout from line 60. So, let's check 
the inside loop with 

35 PRINT 35;"P=";P; 

and run. Gosh, 

25 Nr 1 35 P= 1 25 N= 2 35 P= 1 



Urn, well, OK. We saw all our Ns, but P only ever got to 1. So let's 
look further at the inside loop. It starts from 1, so what happens * 
on the first cycle? P is 1 and, of course, any number divided by 1 is 
Still integral and will satisfy the condition in line 40. So every 
time we'll jump to line 70 and never find any indivisible numbers to 
print out. So we shouldn't be looking at P=l. Try 

30 FOR P=2 TO SQR(N) 

Another run with LIMITS and we get 3 numbers printed out (as well as 
the diagnostic prints) BUT they are all 3.' Try another LIST. What 
are we printing? 
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In line 60 we are printing P .... is that what we want?.... A 
moment's thought Aha! No. Let's try II. 

60 PRINT N 

At last we get the right numbers. Now we can remove the debugging 
lines (25 & 35). Run again with some bigger limits. Hold it: Since 
we expect a lot of numbers to be printed out it might be better to 

60 PRINT N; 

(with the semi-colon) so that there will be less zipping around of 
the results on the screen. Right, now.' My run looks OK. If yours 
doesn't then the rest is up to you I 

There is another fairly similar way to do some debugging. You can 
insert a STOP statement in your program, eg. 

25 STOP 

When the program reaches this you will see 

BREAK IN 25 

READY 

>_ 

Now you're in immediate mode and you can see what your program is 

doing by typing something like this 

PRINT N 

ie. an immediate print of any of your program's variables '. Remember 
you can also say 

?N 

here - a little bit faster] To go on with your program type CONT. 

If you want to change your program at this staqe (not entirely unknown), 
you certainly can, BUT you cannot then CONTinue (you would get a ?CN 
ERROR). You must RUN it again. 

System 60 has a function to give you some help with debugging. It is 
especially useful if you don't have a clue about where your program is 
going. With it you can trace the route that your creation is taking. 
If you type 

TRON 

to BASIC before you RUN your program you will get a mass of information 
about which ii-ne numbers are encountered. For each line executed you 
will see 

{line number) 1 



You'll probably have to use( SHIFT) ( f ) to see what Is happening! 
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We're all writing lengthy programs now aren't, we? Or perhaps you're 

stuck in a loop: (Remember, press almost any key to go on.) To 

understand this display you'll have to make a list of the trace 

numbers to compare with your program. "* 

Once your problem is sorted out (or you've had enough anyway!) you 
can stop the trace by typing 

TROFF 



There is another source of possible programming problems. The System 
80 is a real computer, not a theoretical one, and one conseguence of 
this is that it cannot hold ail numbers with an exact value. As I 
said in Chapter 8, System 80 usually works correct to 6 places, so 
whole numbers from -999,999 to 999,999 are OK (as long as they 
stay integral). But System aO may give unexpected results if you ask 
it to deal with numbers with great accuracy. To have a look at this 
sort of thing, try 

10 BEG =100000 

20 UP=0.01 

30 FOR N=BEG TO BEG+UP*10 STEP UP 

40 PRINT N; 

50 NEXT N 

Line 30 indicates that there shor. d be 10 runs through the loop (the 
limit is 10 step sizes more than the starting value) and we can also 
see that the variable N changes by a small amount each loop. 

However, even System 60 has its limits, and what actually happens is 
the number printed does not change, vet the run dees finish. And from 
the number of PRINTs we can toll that the loop was gone through 14 
times, not 101 Wow! 

I'm not going to say any more about that than to emphasise that we are 
trying to work with numbers that, are beyond the ability of System 80 
to cope with exactly. There are not any clear guidelines here, except 
to be careful of long numbers, and when debugging, to print anything 
that controls the way a program works. It's a good idea to read the 
System 80 Basic Manual's details of high precision numbers so you can 
fix problems like this. 



While we're talking about precision oT numbers and unexpected results 
let's have another look at our program to plot a sine curve (in Chapter 
14). In the first half, when the limit was 3, our step of 0.5 included 
a print for the value X=3. You would expect this since the value 3 
can be made up exactly by adding our step sizes of 0.5 to the begin- 
ning value. What you would not expect is that if the step size is 
changed to 0.2 the final value of 3 will not be printed out. If you 
want a step size that small and the final value of 3 to be included 
in the printed results then this can be done by adding a small amount 
to the limit (say 0.05) and although this makes no theoretical differ- 
ence to the values calculated, it does make a practical difference. 
So, once again, be careful with numbers that control the workings of 
your program. (You may even feel it's worthwhile making a habit of 
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adding a tiny amount to the end vaiue of a loop so that you don't 
encounter this problem.) 



I've spent a fair bit of time on debugging, and that reflects the 
amount of time that you are likely to spend on it. Debugging is not 
simply a nuisance, but a facet of programming in its entirety. 



In Chapter 16 (actually we've done most of these before ] 



Commands 


Statements 


Other 


CONT (after debug STOP) 


STOP 


big numbers 


? variable 


PRINT line;"var=";var 




TRON 






TROFF 
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17. Editing 



Now that you know how to find errors in your programs it's nice to 
know that System 80 will help you to fix them. Instead of retyping 
all of a line containing an error you can just change the part that 
is wrong. 

Let's start off with a line to 
change, say 

10 PR 1 1 NT "HI" 

First we select the line we want 
to edit with 

EDIT 10 

When you type that you'll see 

10_ 

No, you haven't destroyed line 10. That display just means "ready to 
edit" (in this case, line 10). This is just like what you see when 
there is an error - System 80 automatically enters edit model 

You can move backwards or forwards in the line by pressing the space 
bar (forwards) or the 




BACK 
SPACE 



key (backwards). Try it: You can't just retype the line. You'll see 
that as you move along the line, the characters that you have previously 
typed in will appear but if you try to type in a new letter nothing 
will happen. Space and Backspace are the first commands that System 80 
as an editor will recognise. 

Now move to the first "I". (You did type two "I"s in "PRINT" didn't 
you?) OK, we have an "I" too many. To remove the next one type [ D ] 
for delete. You don't need to tell the editor what you want to delete. 
By just typing QT) you have indicated that you want to delete the next 
single character. So now you should see 

10 PRIJI]_ 

Whenever you delete something, edit will tell you what it was with 
exclamation marks around it. 



If you press ( NEW Lite ) at this stage System 80 will go to a new line 
and will show you the rest of line 10 as it will now be in your program. 

Now if you decide that, after all, you would like to say a bit more 
you will have to type EDIT again since C NEW LINE ) returned us to BASIC 
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and left edit mode. So type 
EDIT 

Oops: I forgot to say which line I wanted so System 80 said ?UL ERROR 
So this time let's say 

EDIT 10 

That's better. Now how about inserting some characters? Space to 
10 PRINT "_ 

You could do this a specially quick way by saying, after the line num- 
ber has been displayed, GOOD ie. "search for 'H'". The computer 
will zoom along to the first "H" in the line and stop just before it 
Well, now we're just after the first quotation mark, let's do the in- 
sertion. Press QJ. Nothing happened. That's right, but any further 
characters will be put into the line. Type 

LET'S SAY 

(with a space at the end). Then we' ll have to te ll editor that this 
insert is finished. To do so press rSHlrnfESTl ie. "escape from 
insert". Again, nothing happened. But if you press the space bar 
now you will see that you're back to looking at the rest of the line 
and you can give other edit commands now if you wish. 

If we wanted to add something to the end of the message, we could in- 
sert it before the last quotation mark or we could space to 

10 PRINT "LET'S SAY HI_ 

and press QQ for "hack": This will delete the rest of the line (in 
our case it is only the quotation mark) and allow us to insert new 
material. I think I'll add 

TO ALL OUR FRIENDS." 

with a space at the beginning and a quotation mark to finish the mess- 
age replacing the one we have just deleted. 

Now you can press ( NEW LINE ) and return to BASIC. 

Well: You can select a position, then delete and/or insert character(s) 
which covers a fair proportion of editing. But let's look at one more 
thing. If we go back to our sine curve plot again (Chapter 14), you 
will remember that the latest version of line 30 that I offered was 

30 PRINT X;TAB(SIN(X)*30 + 30);"*" 

—j 

If I had decided to make the changes that I suggested to move the plot 
over on the screen so that the left-hand side was not flattened, in- 
stead of having to type in a whole new line I could have said EDIT 30 
spaced along to the first "3" (after the line number, of course), typed 
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GO to change the next single character and then typed 2, to make the 
scaling factor 20 instead of 30. If you wanted to add more than 30 
at the endof the TAB argument, then you could just space till you see 
3 » Press ( _CJ | and typ e 5 to change the number added into 35. Now when 
you press Lt€W LIfC 1 you should see 

30 PRINT X;TAB(SIN(X)*20 + 35);"*" 

This is a very convenient way to make small changes to see how they 
affect the printout that you're generating. 

To summarise. 



EDIT line number 

space 
backspace 
(S) c 



@ 



(HJ 



immediate mode command to BASIC to select a 
line to edit 

move right one character 

move left one character 

search for next occurrence of character "c", 
and stop at position before it 

delete next (undisplayed) character 

insert typed characters into next positions 



BACK 
SPACE 



will now delete 



[NEW LINE 1 



ended by ( SHIFT ) | ESC] 

delete remainder of line and insert typed 
characters into next positions 

change next character to "c" 

display whole line, finish edit and return 
to BASIC 



I think that this is a good "working set" of edit commands. When you've 
got these working smoothly have a look at the "Text Editing" section 
in the Basic Manual and you'll find a whole lot more commands for 
advanced users. 

In Chapter 17 



Commands 



Statements 



Other 



EDIT line number 



Edit commands: 
space 
backspace 

(sj character 

® 

(T) text [ SHIFT IfESp 

© 

[_CJ character 

LNEW LINE"! 
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18. Sub-programs 



There are two distinct types of sub-program that we'll look at here. 
Both are usually of greatest benefit as programs get more complicated. 
One provides a way of splitting a long program into bite-size pieces, 
and the other lets you use the same series of instructions from where- 
ever you like, without rewriting them; 



To illustrate the first kind, let's say we want to write a program to 
play around with money.' That could get a bit complex, but we'll take 
the essential things we want to handle as; 

1 Debit (bills) 

2 Credit (pay'.) 

3 Balance 

4 Adjustment 

(If that doesn't really grab you, then insert Warp, Map, Fire, Status 
instead for you science fiction freaks.) 

Now we need to have a line in our program to distinguish the categories 
we're dealing with. (Of course, for a real program we should do some 
initialisation too, like set some balances to zero, or position your 
spaceships^ So I'll leave some space at the start of our program.) 
Instead of writing four separate sections we could use this line 

100 INPUT"1 FOR DR,2 FOR CR,3 BALANCE, 4 ADJ"; OPT 

Then to link this to the rest of our program we could simply write 

110 ON OPT GOTO 1000,2000,3000,4000 

That looks impressive '. What System 80 
does here is to look at the value of OPT. 

For OPT = 1 it will GOTO 1000 

for 2 GOTO 2000 

for 3 GOTO 3000 

for 4 GOTO 4000 



Simple really, isn't it? 

We have a multiple GOTO statement. 

ON var. GOTO .... takes a variable 

(or expression) and uses its value to 

count along the list of line numbers 

to select one to GOTO. Actually the 

computer takes INT (var.) so you don't 

have to use strictly integral values 

(but remember that, say, 3.9 is taken 

as 3). This variable may have any positive value up to the n 

line numbers in the list. If you exceed the number of possib 

(ie. the number of lines to GOTO) by any number up to 255, or 




umber of 

ilities 

have a 



55 



zero value, then System 80 will just do the next line.' Negative num- 
bers, or those above 255 will give a ?FC ERROR (argument incompat- 
ible with that function). You can have as many line numbers in your 
list as you can fit on a line. But they must existlj (If not you'll 
get a ?UL ERROR ie. unlabelled line.) 



The rest of the skeleton program in the above example would be some- 
thing along these lines 

1000 REM DEBIT SUBPROGRAM 

1999 GOTO 100 

2000 REM CREDIT SUBPROGRAM 

2999 GOTO 100 

etc. (you can fill in the details - only the hard work is left to do!) 
Each subprogram performs the desired task, then causes a jump back to 
the INPUT line to get a new entry. 



As a summary of the possibilities and restrictions of this statement, 
type in this program. 

10 REM TRY-OUT OF ON... GOTO 

20 INPUT "WHAT IS YUUR NUMBER ";NUM 

30 ON NUM GOTO 70, 80,90 

40 PRINT"WELL. YOU DIDN' I EXCEED 255 BUT" 

41 PR I NT "YOUR NUMBER WAS GREATER THAN 3," 

42 PRIN1" OK WAS II /LRU?" 
50 END 

70 PRINT"YUUR NUMBER WAS TAKEN AS 1" 

75 END 

80 PRINT"Y0UR NUMBER WAS TAKEN AS 2" 

85 END ' 

90 PRINT "YOUR NUMBER WAS TAKEN AS 3" 

This is also an example of the use of the END statement, in lines 50, 
75 and 85, used to stop the program running on to later lines. It 
wouldn't make any sense, would it, if each of the various PRINT lines 
was displayed every time? But, gee it gets a bit much to have to re- 
start the program for each trial. It would be better, don't you agree, 
to replace these lines with GOTO 20 ? We'll also need to add 

100 GOTO 20 

Try various different numbers and you should get a good idea of how 
the ON GOTO works. 



If you have more categories (and thus more line numbers to GOTO) than 
you can fit on one line, then you can adjust the variable suitably, 
and write more ON. . . .GOTO. . . . statements. 

eg. if you have 15 different classes that need separate treatment, 

you could take the first 8 with the first ON. . . .GOTO. . . . you write 
and the remaining 7 with a second ON. . . .GOTO. . . . line. BUT since 
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this will start again with your variable at 1, you will need to 
subtract from it the number that you have already treated, in 
this case, 8. As in 

30 ON NUM GOTO 100,200,300,400,500,600,700,800 

32 ON NUM-8 GOTO 900,1000,1100,1200,1300,1400,1500 

You may need to adjust your variable (for instance, add a small bit, 
multiply or divide it) to make sure that its value is such that the 
line that you want will be the one selected by the GOTO, but, as with 
most programming, if you work carefully you can achieve great things. 



The other sort of sub-program comes into its own when a particular 
routine, or series of statements, is wanted in various different 
places in your programs. Let's say you're writing a game and you want 
to input angles as clock hours (eg. 12.0 means straight up). If you 
also want to use COS and SIN you'll have to convert all your angles to 
radians (pity about that). You could write a sub-program (often call- 
ed a subroutine ) to do the conversion, and then to use it you could 
have something like 



100 INPUT"WARP DIRECTION (AS CLOCK H0UR)";CL0CK 

110 GOSOB 1000 

120 REM SOBROUTINE HAS CONVERTED TO RADIANS 

200 INPUT-EIRE DIRECTION (AS CLOCK H0UR)";CL0CK 

210 GOSUB 1000 

220 REM ANGLE IS RAD 



While the subroutine could be 

1000 RAD=(3-CLOCK)*30*3. 14159/180 
1010 RETURN 

The subroutine is called at lines 110 and 210 by the GOSUB statement, 
which is just like a GOTO, except that System 80 remembers where the 
GOSUB came from.' Pretty neat, and very useful tool! When the sub- 
routine has finished its work, it tells the computer with a RETURN 
statement. This RETURN line does exactly what the word says... it goes 
back to where it came from, or more precisely, to the line following 
the relevant GOSUB call. So after the GOSUB at line 110, the sub- 
routine is executed, then the RETURN sends control back to line 120. 



Exercise 20. 

Write a small program to accept two options. One is debit, and the 
other credit. The sub-programs should input an amount and update a 
balance. Use a subroutine to do the amount input and to check that 
the amount is positive and less than $100. Request the input again 
if the limits a-pe exceeded and show the balance after each trans- 
action. 
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There is another statement that combines both the sub-program styles 
we have talked about, ie. 

ON variable GOSUB line 1, line 2, 

Here the value of "variable" selects which subroutine will be called. 
Each of these subroutines must end with a RETURN statement, which 
will return the program to the statement following the ON .. .GOSUB. . .■ 

This lets us change the earlier example into a really modular program. 
That is, fairly separate program modules can be written which are able 
to be considered by themselves, eg. 

10 REM CONTROL MODULE 

100 INPUT "1 DR,2 CR,3 BAL.4 ADJ";0PT 
110 ON OPT GOSUB 1000,2000,3000,4000 
120 GOTO 100 

1000 REM DR MODULE 

1999 RETURN 

2000 REM CR MODULE 

2999 RETURN 



(No, I'm still not filling in any details:) 

The RETURN statements in lines 1999, 2999 go back to line 120 which is 
just another statement telling the program where to go next. It sends 
System 80 back to line 100 to get some more input. 



Exercise 21. 

Rewrite Exercise 20 as 4 modules; a header or control module, a DR 

module, a CR module and an input subroutine. 



In Chapter 18 






Commands 


Statements 


Other 




ON var. GOTO line 1 

GOSUB/RETURN 

ON var. GOSUB line 1.. /RETURN 


modular programming 
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19. Fixed data 




Sometimes a program needs to have a 
list of things that will stay the 
same for each run. These could be 
legal account numbers, star fleet 
base co-ordinates or areas under a 
normal curveC) and so on. 

The DATA statement provides this list, 
eg. 

10 DATA 1,1,2,3,5,8,13 

Then when you use the statement, 
READ variable , the next entry in the 
list is read (fancy that:) and as- 
signed to the given variable, eg. 

20 FOR C=l TO 7 
30 READ FIB 
40 PRINT FIB 
50 NEXT C 

will list all the entries, one after another, from the above DATA 
statement. DATA statements may be anywhere in your program, even 
after the relevant READ statement. When you say READ, System 80 will 
look right through your program for the next DATA statements. So you 
could group them all at the end of your program (for easy addition of 
new DATA lines), or together at the beginning (for quick location in 
a listing) or throughout your program near the associated READ state- 
ments, and all the data will be read just the same. If, however, 
System 80 can't find a DATA statement or you've READ all the entries, 
you will get an ?0D ERROR message ie. out of data. 

OK, you can get the DATA ... but only once! Wha tf you want to use 
that same information again? Aha! You don't need to type out the 
same DATA statement again. You can get back to the start of your 
listed DATA by saying RESTORE. So if you add 

60 RESTORE 
70 GOTO 20 

this little program will run forever:: 



Exercise 21. 

Make a DATA statement of the following account numbers of overdrawn 

customers. 

465, 591, 615, 988, 1005, 1213. 
Then write a program to check that account numbers that are input are 
not in the redL, 
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Now for something really exciting (well, it turns me on anyhow). 
You can put text into DATA statements' You can have 

10 DATA "ANDY", "BRUCE", "CHRIS", "DAVE" 

It°rina D JrL S h ? r U ??" * ""V** ° f Variable ' This ^ called a 
string variable. The name of a string variable will look just like 

other variable names, except for a $ at the end. (No. Unfortunately 
st^ng Ti^UTsT ^"^ " $ ^ JUSt the *"" -« ? - 

NAM$ 

B4$ 

0MD$ 

are legal string variables, while 

669$ (doesn't begin with A-Z) 

VnL J s y mt >olic character, not A-Z or 0-9 in name) 

TOWNS (reserved word TO in name) 

are not legal string variables. Note Loo that NAM$ and NASTY$ will 
be taken as the same variable (because System 80 only notes the 
first two letters, remember?). 

To print that last DATA statement's contents you can write 

20 FOR Nrl TO 4 
30 READ NAM$ 
40 PRINT NAM$ 
50 NEXT N 

If you're beginning to think these string variables are similar to 
numeric variables, you're right. You can READ them, PRINT them and 
you can give them values, eg. 

100 SURNAM$ = "JONES" 

But note that we used a string variable (name$) and we are putting 

m a numh^ 2 "**%* 'characters enclosed by quotation marks) 
nui a number. We could say 

200 NUMB$="69" ( wit h quotation marks) 
but NOT 

200 NLMB$=69 (j ust a number) 

If you try to equate strings and non-strings you will get a ?TM ERROR 
ie. type mismatch meaning that something is not a string. Anything 
you can type (even symbols) can be a string constant aS iong as Uls 

Z ±erJ I"?." *« 0t * ti0 »ri kS - But ' SinCe these constant are text, 
not numeric values, we can't do arithmetic with them. However usina a 

-SffSSSJiS.^ them together > one «*" *• SET' ™?£ 

110 FULLNAM$=NAM$ + SURNAM$ 
120 PRINT FULLNAM$ 

would give (assuming the previous program lines have just been done) 
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DAVE JONES (no space) 

If you don't like that, then 

NAM$+" "+SURNAM$ is DAVE JONES or 
SURNAM$+","+NAM$ is JONES, DAVE 

If you want a space printed, you need to include it yourself because 
System 80 doesn't automatically leave a space in front of text. 

We can also input strings (and then they don't need to be enclosed by 
quotation marks). Try this game. (Remember to clean your slate first.) 

10 REM CONVERSATION 

20 PRINT"HI." 

30 INPUT "WHAT'S YOUR NAME";NAM$ 

40 PRINT"HELL0 ";NAM$;"," 

50 PRINT "I AM YOUR SYSTEM 80." 

60 INPUT "HOW ARE Y0U";H0W$ 

70 PRINT "WELL. I'M ";H0W$;" TOO!" 

80 PRINT "BYE FOR NOW ";NAM$;"." 

If you tried to be polite when you said how you were, and answered 

VERY WELL, THANK YOU 

System 80 would say to you 

7EXTRA IGNORED 

That's not an equally polite response is it? But this is only because 
System 80 would take the input as being two strings separated by a 
comma and so the second one (ie. THANK YOU) will be ignored. If the 
answer had been enclosed by a pair of quotation marks then it would 
have been accepted as one string. So you can use quotation marks in 
inputting strings but they are not usually needed and they are not in- 
cluded in the string. If you want to include quotation marks in a 
string, you can embed them in the text of an input string, eg. 

I SAID "THANK YOU". 

would be accepted in full. 

If you have a very long name (and entered it all) and you were pretty 
talkative about your state of health, you may have got the message 
70S ERROR ie. out of string_sp^ce. This will happen if you have used 
more than 50 characters (including spaces) in your total string in- 
puts because System 80 only sets aside that much space for strings. 
However you can get over this limitation by allocating more string 
space yourself, eg. 

CLEAR 100 (a command) 

will let you enter 100 characters for this program. You can have as 
many as 255 characters in a string, though you will have needed to 
CLEAR that much space first, of course. If you use more than 255 
characters (remember, that includes spaces and punctuation) you will 
get a ?L5 ERROR ie. string too long. 



We can also compare strings. 
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In the last chapter we said 

100 INPUT"1 DR,2 CR,8 BAL.4 ADJ";OPT 

Well, we can make that a bit fancier now J We can put the allowed 
(legal) options into a DATA statement, like 

100 DATA "DR","CR", I, BAL","ADJ" 

and then input the option in string form with 

110 INPUT"0PTION";OPT$ 

Now we can check the input and deal with it using 

120 RESTORE 

130 FOR N=l TG 4 

140 READ RQ$ 

150 IF 0PT$=RQ$ THEN ON N GOTO 1000,2000,3000,4000 

160 NEXT N 

170 PRINT"N0T A LEGAL OPTION" 

180 GOTO 110 

followed by the relevant subprograms. 

Here, line 120 ensures that we start at the beginning of DATA, 

line 130 starts a loop for the number of entries in DATA, 

line 140 actually gets the next legal option (RQ$) out of DATA, 

line 150 checks that the input option is legal. If so, then the loop 

counter, N, is the same as our old option input! 
If the input is not in the list, then the loop ends after line 160 
and lines 170 and 180 say that we're wrong and will try again. 

Sure, this is longer, but it is pretty (as well as being more 
conducive to accuracy).'! 



Exercise 23. 

Create a little database (with DATA statements) with each entry as 
"surname", "given name", "address line 1", "address line 2". You could 
use one DATA statement per entry. To mark the end use "surname" = "*". 
Write a program to input a surname and display either name and address 
or "not known". 



In Chapter 19 



Commands Statements Other 



CLEAR string space READ string variables & ..$ 

DATA string constants & ".." 
RESTORE + as string concatenation 
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20.Compact style 



You will have noticed that a lot of 
BASIC program lines are quite short. 
This means that even a fairly short 
program can end up as quite a few 
line numbers. Also, it doesn't take 
much program to go over one screen - 
full in a listing. Well, you can 
actually pack a program into a small- 
er package. (Oh good. I was beginning 
to wonder. ) 



You can write more than one statement on a line by putting a colon 
between them. For instance, try running 

10 V=240:PRINT V; "VOLTS" 

You can put the whole delay loop on one line, ie. 

20 FOR D=l TO 345: NEXT D 

Or, how about 

30 FOR C=l TO 20:PRINT C,CC2:NEXT C 

That's a whole table from one line! 



It is certainly a good idea to put a group of related statements on a 
single line, especially if they are fairly simple - the delay loop is 
a good example. However if everything is just pushed together in long 
multi-statement lines it can get very difficult to follow what the 
program is trying to doJ It will also make it hard to squeeze in ad- 
ditions (if you ever need them, of course). 



There is another very valuable use for multiple statements - with an 
IF/THEN. Previously, if you had two things to do when an IF was sat- 
isfied, you had to GOTO somewhere, then GOTO back again - that's messy 
and sometimes difficult to follow in a listing. But NOW... If you 
write multiple statements after a THEN they will all be done if the 
test is true. If the test is not true then none of them will be done. 

Try 

10 INPUT A 

20 IF Arl THEN PRINT "AHA: A=";A: GOTO 10 

30 PRINT "THAT WASN'T 1.": GOTO 10 
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Multiple statements can also be used in immediate model Try this 
line to get the total of numbers from 1 to 10. 

T=0:FOR N=l TO 10:T=T+N:NEXT N:?T 



Exercise 24. 
Write a prog 
if your inpu 
back for more. 



Write a program in as few lines as possible to input a string. Then, 
if your input is "YES" print "OK", otherwise print "NOT OK" and loop 



Don't forget that when you include REM statements in your program, the 
letters REM at the beginning of the line tell your computer that what 
follows is for human use only, and can be ignored by the computer. So 
don't use REM to start any multiple program lines, or all the follow- 
ing instructions on that line won't be acted upon. 



In Chapter 20 
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: and multiple IF/THEN and : : and multiple 
statement commands statement lines 
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21.The game generator 



db> 




There is a function in System 80 specially 
designed for games (well. . .maybe some other 
things too). It allows you to get a random 
number, that is, a "surprise" number - one 
that doesn't depend on anything else! With 
this you could 

- make arithmetic quizzes 

- invent guessing games 

- add randomness to games 

(like a cross-wind for golf?) 

Whenever you use RND(X) you will get a new 
random whole number between 1 and X. 



Try this little game. 



10 REM NUMBER GUESSER 

20 N=RND(100) 

30 PRINT "I'VE GOT A NUMBER BETWEEN 1 AND 100." 

40 INPUT "WHAT'S YOUR GUESS" ;G 

50 IF G<N THEN PRINT "TOO LITTLE:": GOTO 40 

60 IF G>N THEN PRINT "TOO BIG:": GOTO 40 

70 PRINT "OH RATS, YOU GOT IT:" 

(See how multiple statement lines can make your program 
neater when you use IF/THEN ?'. '. ) 

RND(X) will give you random numbers that are integral values but by 
saying RND(0) you can generate random numbers as fractions that are 
bigger than and less than 1. 

What, you might ask, do we get for negative arguments of RND? An 
?FC ERROR. 1 : Not so useful. You will also get an ?FC ERROR if the 
argument that you have chosen for RND is greater than 32768. 

To be truthful about it, RND really generates "pseudo random" numbers 
Whenever you turn System 80 on, if you use RND you will get the same 
sequence of "random" numbers. However you can get a new sequence by 
using the RANDOM statement. 

So RND(X) returns an integer between 1 and X inclusive. 

X must be positive and >=1 but not more than 32768. 

RND(0) returns a fraction between and 1. 

RANDOM sets up a new pseudo-random sequence. 



Exercise 25. 

Write a program to throw two dice. 
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Exercise 26. 

Write a program to draw one playing card from a standard deck. 



In Chapter 21 
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RANDOM 


RND(0) 
RND(X) 
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22.Pictures 



Yes, pictures! Well, sort of anyway! We've already done some graph- 
ical things with a sine curve back in Chapter 14 and our rockets in 
Chapter 15. Graphics, even quite simple ones, really make a program 
great! As the man said, "A picture is worth a thousand words" - even 
if it takes a thousand instructions to create itJ 



A slight note of discord? Well, yes. To 
make a picture the program must say where 
every dot of it goes. And yes, that can 
make quite long programs, and even rather 
tedious programming to get it all right. 

But, ah,... the finished product.' 



.gam,. 
1-.J- § 



•■•i Urn 

■ ■■■■« 

Mm J \ 



About those "dots". System 80 has 6,144 of them!! To make it a bit 
easier they are set out like graph paper: 128 dots wide and 48 dots 
high. (That sounds a bit more manageable!) They are set out as 

to 127 from left to right and 

to 47 from top to bottom. 

You can refer to any of these dot positions as (c,r) where c is the 
column number and r the row number as shown: 




column- 



-•-127 



(100,30) 



However, before we start making pictures, we should have a clear screen 
The statement CLS will do just that. Try using it as a command and type 

CLS 

Presto.' (I suppose we had to get our ready display back.) 
CLS is similar to the type-in NEW in that it empties the screen and 
puts the cursor at the top BUT the important difference is that CLS 
will not clear all your program and variables too. 



OK, the instruction to "paint" a dot is SET(column,rou/) 
Try this out. 
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10 REM GRAPHICS SAMPLER 

20 INPUT "CHOOSE YOUR COLUMN, ROW" ;C,R 

30 CLS 

40 SET(C,R) 

50 FOR X=l TO 345:NEXT X 

60 GOTO 20 

You'll be asked to input a column number and a row number, then the 
screen will be cleared and you'll have a second to see your point set 
on a clear screen UNLESS the numbers you choose are outside the range 
allowable for graphics. You'll get an ?FC ERROR if you choose a 
column number less than or greater than 127 OR if you have a row 
number less than or greater than 47. 

You can see that the point (0,0) is right up in the top left-hand cor- 
ner and the point (127,47) is at the extreme bottom right-hand corner. 

Did you try using numbers with fractions? The numbers you choose don't 
have to be integral, but this function will only use the whole-number 
part. 



The statement to clear a dot is RESET (column, row) with the same con- 
ditions on the column and row numbers. Add this to your program. 

45 RESET(C,R) 

47 FOR X=l TO 100:NEXT X 

Or you could try this one 

10 REM ANOTHER GRAPHICS SAMPLER 

20 CLS 

30 SET(20,20) 

40 FOR X=l TO 100:NEXT X 

50 RESET (20, 20) 

60 SET (30, 20) 

70 FOR X=l TO 100:NEXT X 

80 RESET (30, 20) 

90 GOTO 30 

and System 80 will blink at you. 



Exercise 27. 

•Write a program to fill in the whole screen. 

Add some more program to randomly clear points in this. (Termites!) 



Did you know that computers were artistic? Well, try out this little 
doodler . 

10 REM KALEIDOSCOPE 

20 CLS 

30 XI=RND(64)-1:YI=RND(24)-1 

40 IF RND(10)>1 THEN GOTO 80 

50 SET(XI,YI):SET(127-XI,YI) 

60 SET(XI,47-YI):SET(127-XI,47-YI) 

70 GOTO 30 

80 RESET(XI,YI):RESET(127-XI,YI) 
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90 RESET(XI,47-YI) :RESET (127-XI ,47-YI) 
100 GOTO 30 

Line 30 chooses the (A screen) point location. 

Line 40 decides whether to turn it on or not so that the screen does 
not eventually fill completely. This is a random decision 
(made by choosing a random number between 1 and 10) and 
changing the value "1" will change the "darkness" of the 
doodle by allowing a greater proportion of points to be 
turned on. 



Exercise 28. 

Snail Tracks! Start on the screen and move a snail track randomly 
about. Each move he can go -1, or +1 in X or Y from where he is, 
but not outside his box. 



There is another function that doesn't do anything to your picture. 
It just lets your program check what it has already done! 
POINT(column,row) returns a value of-1 if the dot is set, or if 
it is reset (clear). eg. 

... IF POINT(10,50>-1 THEN PRINT "ON" 

tests the dot at column 10 and row 50. 



Exercise 29. 

Change Exercise 28 so that your snail never crosses his own trail! 

How far can he get? 



In Chapter 11 
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CLS POINT (column, row) 

SET (column, row) 
reset (column, row) 
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23.Tables 



Some time ago we found out how to display tables on the screen. 
That was useful,... and pretty. In fact, it was so useful that it 
would be good to keep those tables inside the computer to look at 
again . Let's do it. 

How about a table of quantities? This could be numbers of boots sold, 
current levels of starship resources, or costs of cigars, etc. etc... 
Say we want up to 50 entries, System 80 must be told this so that 
space can be provided. This is done with a statement like 

10 DIM QUANT (50) 

ie. the DIMension, or size, of our table called QUANT is 50 entries. 
The table QUANT is also called an arra y. QUAN1 is a lot like our 
usual variables, except that it comes in 50 flavoursl (or at least, 
in this case it does) To pick the entry of QUANT that we want to 
refer to we need to specify a sub- 
script. This is a number (or var- 
iable, or calculation) from to 50. 
So to refer to QUANT entry number 25 

we USe QUANT (25) 

We can say things like 

QUANT(25)=365.25 
PRINT QUANT (25) 

Try out this program. 



etc. 




10 DIM QUANT(50) 

20 INPUT"ENTRY";E 

30 INPUT"VALUE";QUANT(E) 

40 FOR E=0 TO 50:PRINT QUANT(E) ; :NEXT E:PRINT 

50 GOTO 20 

You should have seen that the value you entered appeared in the place 
that you chose for it in the table. If you were to try "ENTRY" out- 
side the to 50 range you would get an error when System 80 tried to 
use the array. Either 



?BS ERROR 
?EC ERROR 



bad subscript or 
really bad subscript! I 



Exercise 30. 

Change the above example to only print non-zero entries. 

also print the entry number. 



It should 
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You'll notice that I've been lying (well, a bit misleading anyway). 
If we give an array a dimension of 50, then we can actually have 51 
entries because we can include the subscript 0. 



With an array it's easy to add up all the elements. Add something 
like 

50 REM TOTAL QUANT 

60 TQ=0 

70 FOR E=0 TO 50:TQ=TQ+QUANT(E) :NEXT E 

80 PRINT"TOTAL";TQ 

90 GOTO 20 

Line 50 replaces the old GOTO loop (which we put back in line 90) . 
Line 60 initialises the total so that in line 70 we can just add to it. 



OK, that's one away. Let's try some more. 

10 DIM NAM$(6), V(6), Q(6) 

That's interesting! A string array! We can enter values with 

20 FOR E=0 TO 6 

30 INPUT "NAME, UNIT COST , QUANTITY" ;NAM$(E) ,V(E) ,Q(E) 

40 NEXT E 

Next, we can display this with 

50 SALES=0 

60 PRINT "ITEM", "PRICE". "QUANTITY", "SALES" 

70 FOR E=0 TO 6 

80 PRINT NAM$(E),V(E),Q(E),V(E)*Q(E) 

90 SALES=SALES+V(E)*Q(E) 

100 NEXT E 

110 PRINT 

120 PRINT "TOTAL SALES", ,, SALES 

How's that? (Did you notice how the three commas in line 120 spaced 
the printout?) We have 3 arrays all running in parallel. The same 
element in each array describes a different characteristic of the 
same thing! 

Let's say we want to keep sales figures for each item in each month. 
We could say 

10 DIM SALES(6,12) 

This lets us specify which item we want and also what month of the 
year we want too! Thus SALES(1,6) could be the June sales for item #1. 

Another two dimensional array (sometimes called a matrix) could hold 
an object's position in space, eg. 

... DIM XYZ(10,3) 
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for 10 objects with XYZ(obj,l) the X co-ordinate, 

XYZ(obj,2) the Y co-ordinate 
and XYZ(obj,3) the Z co-ordinate 



When you're debugging your programs you can get a display of (dump 
out) the contents of array NAM$ (for instance) with the command 

FOR E=0 TO 6:?NAM$(E):NEXT E 

or XYZ with 

FOR O=0TO10:FOR D=1T03:?XYZ(0,D) ; :NEXT D:?:NEXT 

(Wow.' That's quite a one-liner.) 

Whenever you RUN a program, System 80 will clear all your variables 
(and arrays) to zero. You can also clean off your own slate with 
the statement 

... CLEAR 

At this time System 80 also sets aside the amount of space you can use 
for all your string arrays and variables. The space that is reserved 
for strings (ie. 50 characters - see Chapter 19) is not much if you're 
using arrays. To allocate more string space you can include at the 
start of your program 

. . . CLEAR number of string spaces 

If you try to use too much memory space, eg. with DIM BIG( 10000), you 
will get ?0M ERROR ie. out of memory. There are obviously limits to 
what you can do because everything uses up space in memory, program 
lines, variables, arrays both numeric and string ..etc... but you'll 
have to write a fair bit before you run out of space. 

If you want to know how much memory you still have left you can use 
the command (always with PRINT) 

PRINT MEM 
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24. Did he say "YES"? 




We saw in Chapter 19 how you can get 
string answers to questions, eg. 

10 INPUT"QUESTION";ANS$ 

20 IF ANS$r"YES" THEN PRINT "OK" 

etc. 

It would be nice to be able to recog- 
nise type-in of "YES" or "Y". 
Certainly we could make more than one 
IF, but that's messy. The function 

LE FT $( string, number) 

gives a string of the leftmost given number of digits from the given 
string argument. So you could say 

20 IF LEFT$(ANS$,1)="Y" THEN PRINT "OK" 

and both "YES" and "Y" will work (and so will "YOCK" or "YNO" etc.). 
Similarly you could select the right-hand 3 characters with 

RIGHT$(ANS$,3) 

Another thing you can do is to find out how long a string actually is. 
Use LEN(string) 



Exercise 


31. 










If 


NAM$: 

1. 

2. 
3. 

4. 


"SKYWALKER" can you give 
LEN(NAM$) 
LEFT$(NAM$,3) 
RIGHT$(NAM$,6) 
RIGHT$(NAM$,LEN(NAM$)) 


the 


resu 


Its 


of ..? 


Use 


System 80 to check your answers 


on J 


y. 







You might have noticed that, as could have been expected, functions 
with names ending in "$" return strings, while those without "$" at 
the end return numbers. 



There's another function here that acts a bit like a combination of 
LEFT$ and RIGHTS, and it is MID$. 

MID$( string, start, number) 

returns a string "number" characters long, starting from the character 
"start" in "string". (The first character is 1 - not 0.) So 



MID$("SKYWALKER",4,3) 



is "WAL 1 
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If you ask for more characters than the string has, MID$ will give 
you as many as it can. You can leave out the third argument of MID$ 
and you will get all the rightmost characters of the string, starting 
with the character that you have specified. (Where have I seen that 
result before?) Try this little program to analyse typed input. 

10 INPUT"STRING";S$ 

20 FOR C=l TO LEN(S$) 

30 PRINT"CHARACTER=";MID$(S$,C,1) 

40 NEXT C 

50 GOTO 10 



Now we've got strings and numbers and never the twain shall 

meet. But they do - 

STR$(number) allows the given number to be handled as a string and 

VAL(string) gives the numerical value of the given string. 

If you don't have a number in your string you'll just 
get zero, or if a number is followed by other characters 
you'll just get the number. 

For instance, what would you expect to be printed if you said...? 

PRINT VAL("23")+1,STR$(23)+"1" 

Did you say 24 231 ? 

Well, congratulations! Of course you did. 



Exercise 32. 

Write a calculator. 

ENTER number 
ADD number 
SOB number 



It should accept; 



(and others if you like). 

(Hint - use a space to indicate the start of the number, and MID$ 
or RIGHTS to get the number out for VAL to use J) 
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VAL(string) 
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25. Conditions 




Often the conditions you want to test 
for in your programs using an IF... THEN., 
statement will involve more than a single 
check. You may want the computer to 
work out whether a number of things has 
occurred, all at the same time. For 
instance, if you want to go sailing you 

should; be able to swim 
AND be able to get a boat 
AND have a fine day. 

You don't have to use more than one IF 
line to do this. Oust as in English you can use the operator AND 
to make one statement do the job. So you could tell System 80 

...IF SWIM$="YES"AND B0AT$="G0T"AND DAY$="FINE"THEN SAIL$="YES" 

Here the string variable SWIM$ must have the value YES 

AND B0AT$ must have the value GOT 

AND DAY$ must have the value FINE 

before SAIL$ is given the value YES. 

If you might go boating in other circumstances (for instance if your 
plane ditched!) you could add 

...IF SAIL$="YES" OR PLANE$="DITCH" THEN PRINT "GO SAILING" 

Here the OR operator is being used, instead of AND, so that you may be 
EITHER going sailing for fun 
OR sailing of necessity. 

The message GO SAILING will be printed if 

EITHER the string SAIL$ has the value YES 
OR the string PLANE$ has the value DITCH. 
(System 80 won't insist that it's a fine day before you can save your- 
self from the plane.) 

THUS in an IF statement 

condition AND condition is true ONLY if both conditions are true 
condition OR condition is true if EITHER condition is true. 

You can even add to this by using parentheses to make "compound" 

conditions. Try this to get the feel of it. 

10 INPUT "A,B,C";A,B,C 

20 IF (A=l AND B=2) OR C=0 THEN PRINT "YEP":G0T0 10 

30 PRINT "N0PE":G0T0 10 

So the AND and OR operators let you make multi-barrelled decisions with 
a single IF... THEN... statement which you can make more complex with 
parentheses. 
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As well as being able to do something under complex conditions, you 
can instead take different action if it is not true. You can do this 
just by adding ELSE... to your IF. eg. you could say 

... IF A=l THEN PRINT "YEP" ELSE PRINT "NOPE" 

which is just the same as 

... IF A=l THEN PRINT "YEP" 
... IF AOl THEN PRINT "NOPE" 

only a lot prettier.' 

And., you can still put multiple statements in.' So you could have 

10 INPUT A 

20 IF A=l THEN PRINT"YEP" :G0T0 10 ELSE PRINT"N0PE":G0T0 10 

30 STOP 

which will never get to the STOP! 

Try replacing line 20 above with 

20 IF NOT A=l THEN PRINT"YEP":G0T0 10 ELSE PRINT "NOPE" :G0T0 10 

This completely turns our test around.' 

You can also use NOT to test for the untrue value of an extended set 
of conditions in parentheses. For instance, if we went back to our 
earlier example and said 

20 IF NOT (A=l AND B=l AND C=l) THEN PRINT"YEP":GOT0 10 

then all three values would need to be NOT equal to 1 for "YEP" to 
be printed. 

So you can certainly cover all contingencies and still with only one 
IF... THEN... statement! This is starting to make things complicated! 
(starting?) There are some program design methods to help the poor 
old programmer exercise his art. One of these is a graphical method 
called flowcharting. It is just some specially shaped boxes to break 
up a program into manageable pieces, and diagramatically show its 
"shape". 



Flowcharting uses 



for calculations 



and 




for decisions 



and lines to indicate program flow. (Some people use more symbols, 
but two is enough!) For instance, a typical program could look like 
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Initialise 



Get Input 



= 1 



''Opera tion^ 
S. Type S 

[=2 


s,=3 












Calculation 
Type 2 




Calculation 
Type 3 



"inished, 



No 




Flowcharts can be particularly useful when working out what you want 
to do with a program that will be using the IF. . .THEN. . .statement or 
IF.. .THEN. ..ELSE.. . with the AND, OR and NOT operators to give various 
different treatments. 



Exercise 33. 

We want to simulate the behaviour of this light bulb with a program. 

It must input the states of the switches, then display what happens. 

First flowchart the problem, then write a program from your flowchart. 
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26. Screen control 



You can display numbers and things 
on the screen and make simple pic- 
tures, but imagine putting them 
together.' Actually, as you'll see 
it's not very hard, but it always 
needs careful planning. 

A print can be made to start 
anywhere on the screen by saying 

... PRINT @n, things to print 

where "n" is the character position set out as 



ftQu. 





■* 62,63 



960 



— 1023 



Try 

PRINT D 0,"HI" 

You'll see HI at the top left, with the ready display on the next 
line (probably over the top of old screen contents). It might look 
a bit confusing, but you can put that message wherever you want it J 

Next comes the really exciting bit - combining graphics with text. 
First you must know how System 80 makes its graphics, rp 
It divides each character position into 6 dots like tfcl 

Each 6-dot position may contain any character (like "A") OR have 
any combination of its 6 dots set. We've already seen in Chapter 22 
(the GRAPHICS Chapter) how to turn on one of the dots with SET( col, row) 
If we said 

SET(0,0) 

we would turn on the top left dot of character position 0. The column 
and row numbers used in the instructions SET RESET and 
POINT make up the dots of character position like this 



(0,0) 


(1,0) 


(0,1) 


(1,1) 


(0,2) 


(1,2) 
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Video Display Map 
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The accompanying VIDEO DISPLAY MAP gives the dot/character positions 
for all the screen. 



Now for some action.' This example plots a box then puts a message 
inside it. Pretty hot stuff.' 

10 REM MAKE A BOX 

20 CLS 

30 EOR X=20 TO 80 

40 SET(X,10):SET(X,30) 

50 NEXT X 

60 FOR Y=10 TO 30 

70 SET(20,Y):SET(80,Y) 

80 NEXT Y 

90 PRINT ® 384+18, "THIS IS A BOX"; 

100 REM LINE 110 STOPS PROMPT APPEARING 

110 GOTO 110 



Exercise 34. 

Write a program to lay out a box like 



the size of the screen. Next put a fancy title in the box at the top. 
(You'll have to end your PRINT ® lines with a semi-colon to keep the 
right of your box intact;) (Don't forget to CLS first.) 



Exercise 35. 

Write a program to draw an ace of hearts. 



Exercise 36. 

Input 5 product names and sales quantities and make a bar chart of 

their sales. 



In Chapter 26 








Commands 


Statements 


Other 






PRINT @ n 


display control 
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27.Changing data 



It's all very well to have DATA 
statements to store information in 
a program, but what if that DATA 
changes freguently?? Do we have to 
keep changing our DATA statements 
every time there is a change? No, 
of course not. It is possible to 
keep your data on cassette and up 
date it when needed. 




But before we go on, a word of warning. 

So that you're not completely wiped out if your machine hiccups, as 
may happen, you should at least keep multiple copies of cassette data 
If you're updating its contents don't write out to the same tape. 
Use a different one and keep the one you used for input so that you 
can regenerate files if you need to. I would strongly suggest keep- 
ing each file on a separate tape, clearly labelled!! It might well 
be a good idea too, to re-read a tape and check it against what you 
expected to have written. 

So BE CAREFUL! and test out your work thoroughly before filing all 
your company records in the rubbish bin. 

Well, now that we're ready, I guess I had better tell you how to do 
it! You need to first of all position your tape as in the CSAVE 
operation Make sure the tape is past its leader and set the recorder 
to record (with ( F1 J up). 

Now for the transfer of data! This is done with a PRINT statement 
but since you don't want your data displayed on the screen but printed 
onto the tape instead the instruction is modified thus; 

... PRINT#-l,list of things to be recorded 

To try out the procedure you could say 

10 REM CASSETTE DATA SAVE 

20 INPUT-PREPARE CASSETTE FOR RECORDING & PRESS NEW LINE"-GQ$ 

30 PRINT#-1,"I'M SYSTEM", 80 

40 PRINT"0K,Y0U CAN STOP THE CASSETTE NOW!" 

That G0$ in line 20 is just a dummy to make INPUT wait till you are 
ready to go to the next line. 

Don't make your PRINT0-1 lines too long because anything after 255 
characters will be lost!! 
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Sooner or later you'll probably want to read your cassette data back 
in (well, I hope so anyway!) 

Set the cassette deck to play ( 1 Fl 1 up) and this time £he statement is 
like INPUT (reasonable, that) except that, because the source of the 
data is a cassette, not you, the statement is again modified like this 

... INPUT#-l,list of variables for data to be read into 

A bit of care is needed here though. The list of variables in INPUT0-1 
must match in type and number what is on the tape. If they don't, or 
there is an input error, you'll get an ?FD ERROR - file data error. 
However the names of the variables need not match as long as numeric 
variables are still numeric and string variables remain strings. 

To get back the data that we just recorded we could write 

10 REM CASSETTE DATA INPUT 

20 INPUT "PREPARE CASSETTE FOR INPUT AND PRESS NEW LINE";G0$ 

30 INPUT#-1,NAM$,NUMB 

40 PRINT"I FOUND ";NAM$;" & ";NUMB 

50 PR I NT "YOU CAN STOP THE CASSETTE NOW." 

The tape should stop when the data has been read in (but if it doesn't, 
just press RESET, at the left back, and try again). 



Exercise 37. 




















Request that 


the 


user 


type his 


name 


am 


J address 


into a 


string 


array. 


Save this on 


cassette 


and disp. 


ay it. 










(Don't forget 


to 


tell 


yourself 


what 


to 


do with 


the recorder!) 





These operations could be used for mailing lists, library catalogues, 
kitchen recipes, family genealogy or a million other things. It can 
be very useful in playing games on the computer to be able to record 
things like the current status of Space Affairs for later use in a 
long game of Space Trader. BUT please be careful. It could be very 
easy to lose your valuable lists! 



In Chapter 27 



Commands Statements Other 



PRINT0-1, list 
INPUT0-1, list 
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28.Antibugging 




This is more a frame of mind than a 
thorough methodology. It is an approach 
to program design that assumes that you 
are likely to make some mistakes or 
omissions and so will take appropriate 
precautions. It is something like put- 
ting ant-caps on your house's foundat- 
ions - it reduces the number of places 
that bugs can get in. 



The first thing to do is to actually 
. sit down and design your program. 

lliL 7"L c \ yPe L S , ral 9 htforw ^d program straight from your imagin. 

tn hnlH ?i ?k m f 8 ° S T° ry ' but there comes a st *3 e when it's hard 
to hold all the facets of a program in your consciousness at one time, 



We ve already talked a bit about program design with flowcharts. 
They are certainly good for nutting out complex logical situations 
however some people find them less well suited for overall design 



One good approach to total program design is called "top-down" design 
tssentially this means to program (maybe even in plain old ordinary ' 
tnglisn; the most broad outline first, eg. 



Program 



Set-up 

Handle requests 

End 



This is the top level. Next, each of these steps is refined. 

I- or instance, if this program were a simulation of a space battle, 



Program 



Set-up 



Handle requests 
(repeat while enemy 
still exists) 

End 



{ 
{ 



clear display 
generate positions 

get request 
process request 
end request 
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You can go on refining untii the required program instructions are 
obvious. If you run out of room, just start a new page for the sub- 
classes eg. 



Process request 



if "map" 
if "warp" 

if "fire" 



■s display positions 

i 
{ 



request details 
move ship 



request details 
track weapon 



if "status" -T list status 



This gives you an overall understanding of your program, and you can 
see at what level it is most appropriate to break into separate blocks 
of instructions. (A rough guide is that a block, or "module", should 
fit into a single screen full.) 

Another level of "anti-bugging" comes into the picture when you are 
actually writing the program. If a bit of program is especially 
complicated, or contains lots of calculations, it is a good idea to 
spread it out a bit. Perhaps you could even show some intermediate 
values. If a program is not squashed up, using all available line 
numbers for that section, then there will be space for extra debugging 
PRINTs to be put in if all is not well. It also allows some extra 
space if it is necessary to add further operations. 

Again, if the program is getting particularly tortuous, it might be 
time to sit back and see if there is a different way to do it all 
more simply. The simplest solution is always the best especially 
if the program ever has to be changed: 

Well, what a boring old load of pontifical censored that was: Anyhow, 
it's just common sense. I guess you've got to have a low point some- 
where. 
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29. END 



Here are a few extra bits of fairly esoteric information that might 
be of interest. 

There are some statements that you can use as commands and some com- 
mands that will work as statements in a program. 

RUN and LIST can both be acted on in a program (though they're not 
very useful there since RUN will cause a program to go forever and 
LIST will prevent it from being run at all by just giving a listing). 

GOTO line number 

can be used as a command to cause a program to be run from the given 
line number without your variables being cleared first (as would 
happen with the command RUN). 

However, there are also some statements that cannot be used as 
commands, such as INPUT, and when they are tried you will get ?ID 
ERROR ie. illegal in direct mode or this can't be done by itself. 

If you want to use BASIC programs from other computers (or want to 
shorten your own work) you might like to know that System 80 accepts 
two other forms of {f condition THEN G0T n line number 

They are I(r conc jition GOTO line number 

and IF condition THEN line number 



That's all for basic BASIC 1 However, as you'll see when you look at 
the System 80 Basic Manual there are lots more goodies (though you 
might have to look a long way before finding a use for some of themi) 



Good programming 1 




85 



Glossary 



argument ; either a heated discussion or more hopefully just a value, 
numeric or string, given for a function to work with. 

array; a collection of related items grouped under one variable name. 

ASCII ; American Standard Code for Information Interchange. This is 
a code for computing characters. 

BASIC ; B Antagonising Sometimes but Ingenious Code. Actually, 

BASIC is the computing language that System 80 uses and stands 
for Beginners' All-purpose Symbolic Instruction Code. 

binary ; system of representing numbers with only two different digits, 
eg. ON or OFF for a computer's electronics. 

bit; binary digit - smallest unit of computer's Memory (see memory) 

byte ; group of 8 bits - smallest program accessible unit of the com- 
puter's Memory. Each byte may contain part of an instruction, 
part of a number to be used or the code for a character (see 
memory) 

bug ; program error 

command ; instruction which can be immediately acted on. 

computer ; ingenious electronic device for consuming time. 

constant ; fixed value, numeric or string, used in a program. 

cursor ; not a user of strong language but a mark (underline in System 
80) indicating the position the next character will take. 

dump ; display of information, some of which might even be useful! 

Ej exponentiation factor followed by a power of 10. 

execute ; carry out instructions 

field ; subdivision of a section of display, records etc. 

function ; operation on an argument to give a new result. 

hardware ; nuts, bolts, transistors and integrated circuits in computer. 

hexadecimal ; non-decimal system of number representation - base 16 
Digits are to 9 and A to F OR to 15 

home ; starting position on computer's display, top left-hand corner. 

initialise ; set to starting value 

K| represents 1000 in normal parlance, but for computing it usually 
represents 2*$ ie. 1024- 

line numbers ; necessary beginning of program line. 

machine language ; computer's c 
hardware to execute. 

matrix ; two dimensional array 



machine language ; computer's own representation of instructions for 
hardware to execute. 
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memory; this is where the computer stores all its instructions, values 
etc. It has two parts, a user-accessible section where things 
like the program lines and input are stored (Random Access Memory 
or RAM) and a place where all the permanent information for the 
computer, like how to decipher BASIC, is stored in a form not 
generally accessible to the user (Read Only Memory or ROM). 
Memory is made up of lots of bits. Each bit (or binary digit) 
is either on or off ('cause that's easy to do with electronics). 
These bits are organised into lots of groups of 8 called bytes, 
and this is the smallest unit of memory that the computer can do 
programming things with. An 8K computer has about 8000 bytes of 
memory to program in (actually, in computing "K" often means an 
equivalent in binary terms ie. 2*0 or 102^, so 8K is 8192 bytes!) 

nested loops ; FOR/NEXT loop containing more FOR/NEXT loops. The 

innermost one will be completed for each pass through any loop 
containing it. 

peripheral ; hardware allowing the computer to communicate with the 
external world. 

program documentation ; vital to programmers. Explanation of purpose 
of program as in REM. 

prompt; character(s) on computer's screen indicating its readiness 
to accept input - usually precedes cursor on the screen. 

RAM ; Random Access Memory, usually implies READ/WRITE storage space. 

r eserved words ; letter groups set aside in BASIC for use only in the 

defined instructions. Their appearance elsewhere will wreak havoc. 

ROM ; Read Only Memory, permanent information in System 80. 

scientific notation ; representation of numbers using a power of 10. 

software ; programs provided to make System 80 work. 

statement ; component of program. Line of instruction to be executed 
when program is run. 

variable; name of an entity which can hold different values. 

zone; fixed field eg. System 80 has k zones across the display screen. 
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Appendix A. Summary of BASIC 

Here is a summary of System 80' s Level II BASIC: 
1. COMMANDS 

automatic line numbering by steps of 10 from line 10 

AUTO line number, increment 

automatic line numbering by chosen steps from given line 
number 

CLEAR 

set program variables to zero 

CLEAR n 

clear variables and "n" string-space bytes 

CLOAD "name" 

load cassette file "name" into memory 

CLOAD? "name" 

cassette program check 

CLS . 

clear screen 

CONT 



after ( BREAK ) or STOP to continue 

CSAVE "name" 

save program on cassette as file "name" 

EDIT line number 

select line to edit, then use 

space 

backspace 

fS~) c search for character "c" 

fD~) delete next character 

CDtext [ SHIFT IfEST] insert text 

Qj Ijtext delete remainder and insert text 

(C) c c hange next character to "c" 

(NEW LINE] finish edit 

LIST . . . 
program list 

LIST line number-line number 
list part of program 

NEW 

remove current program from memory 

PRINT MEM 

display amount of free memory 

RUN 

execute program 

RUN line number 

execute from given line number 

TRON 
TROFF 

line number trace display on or off 
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2. PROGRAM ELEMENTS 

Each program consists of a series of lines. Each line is 

line number statement 

OR 

line number statement :statement :... . 



up to 255 characters (including spaces). Spaces may be left out, 
so care must be taken to avoid reserved words as these will result 

in unexpected errors. 

. . ■ 

Variable names; 

must start with a letter and the rest can only be made 
up of letters and numbers. System 80 will only take note of the first 
two characters. 

String variable names; 

must also have a "$" at the end. 

Numeric constants; 

will be tnumber 

±number E±number 
up to 1E38 (normal precision correct to 6 digits) 

String constants; 

must normally be enclosed by quotes ie"string" 
(but quotes are optional for string input only) 
up to 255 characters long (including spaces) 

Numeric operators; 

+ addition 

- subtraction or unary minus 

* multiplication 

/ division 

C exponentiation 

String operator; 

+ concatenation 

Order of precedence; 

first.. () parentheses 

C exponentiation 

- negation (unary minus) 

*/ multiplication and division, left to right 
last.. +- addition and subtraction, left to right 



3. STATEMENTS 

CLEAR n 

clear variables and "n" string-space bytes 

CLS , 

clear screen 

DATA list „ 

data for READ statement 

DIM name (dimension list) 
allocate array space 
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END . 

terminate program execution 

FOR var=start TO end STEP change 

set "var" to "start" and execute till NEXT statement 
GOSUB line number 

unconditional branch to subroutine - RETURN at subroutine end 
GOTO line number 

unconditional branch to line number 

IF condition THEN line number 
IF condition GOTO line number 
IF condition THEN GOTO line number 

conditional branch to line number 
IF condition THEN statement 

conditional execution of "statement" 
IF condition THEN statement 1 ELSE statement 2 
execute statement 1 if condition is true 
execute statement 2 if condition is false 

condition is; expression relation expression 
relation is; <,<=, =,>=,>,<> 
operate on conditions with AND, OR, NOT, () 
INPUT "text";variable list 

display "text" and accept type-in to variables 
INPUT #-1, variable list 

transfer data from cassette to the variables listed 
LET variable=expression 

assign value of "expression" to "variable" 
"LET" is optional 

NEXT variable 

end of FOR/NEXT loop 

ON variable GOSUB line number list 

"variable" selects a "line number" (from list) of subroutines 
to go to 

ON variable GOTO line number list 

"variable" selects a "line number" to GOTO 
PRINT expression list 

to display 

Use semi-colon to compact items or comma for zones. 

Use TAB(col) to lay out print. 

PRINT with no following text spaces to a new line. 

. can be used as shorthand for PRINT. 

PRINT @ number, expression list 

display at character position given by "number" 

PRINT0-1, expression list 
send data to cassette 

RANDOM 

start new random number sequence 
READ variable list 

read next entry out of DATA statement list 
REM remark 

comment or explanation - this is not executed 
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RESET (column, row) 

clear dot on display screen 

RESTORE 

start DATA list again 

RETURN 

finish subroutine and go back to statement after GOSUB 

SET ( column, row) 

set dot on display screen 

stop program execution - may go on with CONT 



4. FUNCTIONS 

ABS(arg) absolute value 

ATN(arg) reverse of TAN - result in radians 

COS(radians) trig cosine (radians=3.14159/180*degrees) 

EXP(arg) eCargument 

INT(arg) returns integer = argument 

LEFT$( string , number ) 

leftmost "number" characters from "string" 
LEN(string) number of characters in "string" 
LOG(arg) reverse of EXP - eCresult=argument 
MID$( string, posit ion, number) 

return string as "number" characters from "position" 

in "string" 
POINT (column, row) 

check display dot position 
-1 if set 

if reset 
P0S(dummy arg)returns present display position (0 to 63) 
RIGHT$(string, number) 

returns "number" characters from right of "string" 
RND(arg) arg >0 gives random integer between 1 and arg. 

arg =0 gives random fraction between and 1 
SGN(arg) returns -1 for arg <0 

for arg -0 

1 for arg >0 
SIN(radians) trig sine 

SQR(arg) square root of argument ie. arg=resultL2 

STR$(arg) returns string representation of argument 

TAB(column) spaces to "column" (0 to 63) in PRINT 

TAN(radians) trig tangent 

VAL(string) returns "string" as numeric value 
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5. RESERVED WORDS 



Must not be 


used in variable 


names 


r~ 


ABS 


EDIT 


LIST 


REM 


AND 


ELSE 


LOAD 


RESET 


ASC 


END 


LOC 


RESTORE 


ATN 


ERL 


LOF 


RESUME 


CDBL 


ERR 


LOG 


RETURN 


CHR$ 


ERROR 


MEM 


RIGHT$ 


CINT 


EXP 


MERGE 


RND 


CLEAR 


FIELD 


MID$ 


SAVE 


CLOSE 


FIX 


MKD$ 


SET 


CLS 


FOR 


MKI$ 


SGN 


CMD 


FRE 


MKS$ 


SIN 


CONT 


GET 


NAME 


SQR 


COS 


GOSUB 


NEW 


STEP 


CSNG 


GOTO 


NEXT 


STOP 


CVD 


IF 


NOT 


STRINGS 


CVI 


INKEY$ 


ON 


STR$ 


CVS 


INP 


OPEN 


TAB 


DATA 


INPUT 


OUT 


TAN 


DEFDBL 


INSTR 


PEEK 


THEN 


DEFFN 


INT 


POINT 


TIMES 


DEFINT 


KILL 


POKE 


TO 


DEFSNG 


LEFT$ 


POS 


TROFF 


DEFSTR 


LET 


PRINT 


TRON 


DEFUSR 


LSET 


PUT 


USING 


DELETE 


LEN 


RANDOM 


USR 


DIM 


LINE 


READ 


VAL 
VARPTR 
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NOTES ON USING THE SYSTEM 80 COMPUTER 

You probably won't need to worry much about these points while 
you're working through this book. However if you do go on to 
delve deeper into programming your System 80, you'll find them 
well worth bearing in mind. 

1. The reason why System 80 gives two READY? messages when you 
first turn on the power is to give you the opportunity to 
reserve part of its memory space for machine language or SYSTEM 
programs. If you just press NEW LINE after the first READY 
appears, no such space is reserved; but if you type in a number 
first, System 80 will take that number as the decimal address 
of the "top" of its memory space available for BASIC programs. 
Whatever actual memory space is present above that address will 
be left free for machine language programs. 

2. System 80 's inbuilt cassette tape deck is fine most of the 
time, but there are times when you do need an external recorder 
— like when you want to use one of the low-cost light pens 
that need to plug into the recorder's MIC input. System 80 has 
provision for an external recorder, but don't forget that your 
programs have to know how to talk to the external recorder 
instead of the internal deck. 

With BASIC programs this can be done very easily, without even 
modifying the programs themselves. After loading them into the 
computer, and before typing RUN, just type in: 

OUT254,255 

followed by NEW LINE. System 80 will then automatically 
"connect" your programs to the external recorder whenever they 
try to communicate with the internal deck. 

3. For people who are already familiar with the Tandy TRS-80 
computer. System 80* s keyboard differs from that on the former 
in a few minor ways: 

(a) The NEW LINE key replaces the TRS-80 's ENTER key 

(b) The BACKSPACE key replaces the "*-" key 

(c) The CTRL key replaces the "t" key 

(d) The ESC key replaces the "f" key 

(e) There are no CLEAR or "—►" keys. This is not terribly 
important^ as these keys are rarely used. However if the "-*•" 
key is needed, it can be added fairly easily. Details are 
available in DSE Technical Bulletin No. 12. 
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Appendix B. Errors 

Error messages are given as 

?code ERROR IN line number 

for programs, and 

?code ERROR 

in immediate mode. 

The codes are 

BS Bad Subscript. You tried to refer to an array element outside the 
Dimensioned range - either too big (eg. the 50th element in a 10 
element array) or wrong dimensions (eg. ELEMENT(1,2) in a one-dim- 
ensional array) . 

CN Can't Continue. The computer can't continue if it hasn't stopped - 
BREAK or STOP - if there have been modifications to the program 
since stopping or if there is no more program to run. 

DD Re-dimensioned array. A subsequent DIM has been found after one 
has already been assigned either by a DIM statement or by default 
(when DIM size is 10). A default size is allotted if the array has 
been referred to before its DIM has been encountered and for this 
reason it is a good idea to put all DIM statements at the head of 
the program. 

FC Function Call error. This means that you have given an argument 
that cannot be used with the function you have called. There are 
many causes including argument too big (eg. more than 255 with TAB), 
negative argument with LOG or SQR, array subscript negative or 
greater than 32767 or non-integral exponent. 

FD File Data bad. While doing an INPUT#-1 System 80 detected an 
error. There was either a mis-read from the cassette or the 
variable list in the instruction didn't match the actual data on 
cassette. 

ID Illegal in Direct mode. An attempt has been made to use instruct- 
ions in direct (command) mode that can only be used in proqrams 
eg. INPUT 

MO Missing Operand. A required argument was not provided eg. * with- 
out anything to multiply by, or CSAVE without a name. 

NF NEXT without FOR. Every NEXT statement (end of a FOR/NEXT loop) 
must be preceded by a FOR (beginning of that loop) using the same 
variable. This error can be shown if you have simply omitted the 
FOR line, given a different variable name in NEXT or incorrectly 
nested loops so that the computer can't get at the matching FOR. 
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LS String too Long. An attempt has been made to create a string 
longer than 255 characters. 

OD Out of Data. A READ statement has been encountered when there is 
no DATA for it. DATA may have been omitted or already read. (In- 
clude a RESTORE statement to allow DATA to be re-read.) Another 
possible source is not enough data items on a tape for all the 
variables in an INPUT0-1 statement (the last bits of data may have 
been lost from the corresponding PRINT0-1 if they exceeded 255 
characters) . 

OM Out of Memory. Your program has taken up all available memory in 
System 80. Maybe you have a very large array or your program is 
reserving too much area for seldom-used branches that can be writ- 
ten more economically. 

OS Out of String Space. System 80 allocates space for 50 string 
characters but if you want to use more string space you need to 
use CLEAR to set it aside first. 

0V Overflow. INPUT or result of a calculation is too large for 

System 80 to handle (in excess of 1E3S). Note that underflow be- 
comes zero ie. when numbers are too small for System 80 to deal 
with accurately they are taken to be zero. 

RG RETURN without GOSUB. A RETURN statement signifies the end of a 
subroutine which must have been entered with GOSUB (not GOTO). 
RETURN tells the computer to go back to the line after GOSUB which 
can't be done if there is no such statement. 

SN Syntax error. Something is wrong in the characters that you are 
using - spelling error, incorrect punctuation, missing parenthesis, 
illegal character, reserved word in variable name are some poss- 
ibilities. 

ST String expression too complex. System 80 couldn't handle the string 
operation as it was given. Can it be made simpler or could you 
split it up into smaller steps? 

TM Type Mismatch. One side of assignment numeric and the other side 
string. 

UL Undefined Line number. You tried to refer or branch to a non- 
existent line. 

/0 Division by Zero. That's illegal and illogical: Perhaps your 
number was so small that it was taken as zero. 



These are the error codes that are mentioned in this book. There 
are some more that System 80 uses and for these you can refer to the 
System 80 Basic Manual. 
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Appendix C. Answers to Exercises 



10 REM CHAPTER 4, EXERCISfc 1 

M SP£E0=«" "" WH S " ME ,N H0URS - ™ M« I* km 

a0 TIME =5 

50 DISTsSPEED * TIME 

60 PRINT DIST;«KM FROM THE ALICE TO PERTH." 

10 REM CHAPTER a, EXERCISE 2 

fo RA E ?E = P80 " $/M0NTH ' TIME IN YFAWS ' F0R REPftY IN * 

10 riME = 2<5 

50 RFPAY=RATE * TIME * 12 

60 PRW'TOTAL REPAYMENT IS S";k E PAY 

10 REV CHAPTER U , EXERCISE 3 

50 A=2000 
60 T=S 

110 REM s DISTANCE 

120 S=j*T ♦ 1/2 * A * T*T 

130 PRIMT'MT A DISTANCE OE";s;"km" 

10 REM CHAPTER S, EXERCISE 4 

M J=3E5 VfL0CITY ' T FIMF ' s DISTANCE 

<40 T=5E2 

50 S=V * T 

6u PRINT S;"KM FROM EARTH TO ThE SUN" 

10 REM CHAPTER 5, EXERCISE S 

20 REM SEE EX 3 

30 U=5E4 

40 A=2E3 

SO T=2bE0 

60 >/=U t A*T 

70 S=U*T + 1/2*A*T*T 

PO PRI.\JT v;" KM/SEC AT";s;"KM" 
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10 REM CHAPTER 

2 REM 1 

3 N= 1*3*4 
«0 PRIMT N 
50 REM 2 

60 M=(2 + <4)*2 
70 PRIMT N 
80 RE* 3 
90 N=2 C3-1 
100 PRIMT M 
110 RE"! 4 
120 N=-3(2 
130 PRIMT M 



exercise 6 



10 REM CHAPTER 6, EXERCISE 7 

20 Ls TAim( 55 * 3.14159/180 ) * 6 * ? 

30 REM IE 55 DEGREES TO RADIANS, THEN 

40 REM RATIO, SO * 6 GIVES THE HEIGHT, 

50 PRIMT l_;"M OF CORD REQUIRED" 



TAN GIVES HEIGHT TO BASE 
THEN *2 FOR CORD REQUIRED 



I REM CHAPTER 7, EXERCISE 8 
5 COUNT=0 

10 PRIMT "DECISIONS!" 

II COUNT=COUNT+l 

12 REM THIS IS THE NEW LINE! 

13 IF C0UNT=5 THEN PRINT "MORE" 

14 IF COUNT=7 THEN PRINT "I'M NOT 

15 IF COUNTslO THEN END 
20 GOTO 10 



FINISHED YET" 



10 REM CHAPTER 8, EXERCISE 9 

20 REM N IS NUMBE« OF TIMES, C 

30 INPUT"HOW MANY TlMES";N 

40 C = 

50 PRINT"QUESTIONS! " 

60 C=Ctl 

70 IF C=N THEN END 

80 GOTO 50 



IS COUNT 



10 REM CHAPTER 8, EXERCISE 10 

20 REM YOUR CHOICE HERE! 

30 REM TO MAKE EX 9 GO BACK AND ASK AGAIN 

40 REM REPLACE LINE 70 WITH 

50 REM 70 IF C=N THEM GOTO 30 



?"CHAPTER 10, EXERCISE 11" 

?30*365*24;"H0URS OLD (MINUS A FEW MONTHS!)" 



10 REM CHAPTER 12, 

20 FOR X=f TO 10 

30 PRINT X 

«0 'iEXT X 



EXERCISE 12 
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10 REM CHAPTER 12, 
20 FOR X = l TO 10 
30 PRINT X,X(2 
aO ME XT X 



EXERCISE 13 



10 REM CHAPTER 12, EXERCISE 1*1 

20 FOR XsO TO 20 

30 PRIMT X/10,SIN(X/10) 

ao NEXT X 

10 HEM CHAPTER 13, EXERCISE 15 

20 INPUT"INTERVAL IN SECOMDS";S 

30 FOR C=l TO 3a5*S 

aO NEXT C 

50 P«INT"THAT'S ALL FOLKS" 

10 REM CHAPTER la, ExERCISF 16 

20 REM PLOT X [2 

30 FOR X=l TO 7 STEP 0,5 

^0 PRINT TA6(X (21 ; "*" 

50 NEXT X 

10 REM CHAPTER la, EXERCISE 17 
20 RE^ PLUT S1N(XJ/X 
30 FOR X=l TO lu 

aO PRIMT X;TAB(SIMX)/X*30 + 30);"*'» 

5 "J EXT X 



10 
20 
3 
ao 
50 
hO 
70 

bo 

90 

100 

110 

120 

130 

lao 

150 



REM CHAPTER 15, EXERCISE 18 

M MINUTES COUNTER, S SECONDS, 

FOR «1 = 5 TO 1 STEP -1 

PRINT M;"MINUTF.S TO BLAST OFF" 

FOR S=l TO 50 

FOR 0=1 TO 3«5 

NEXT D 

NEXT S 

FOR S=10 

P'RINT S 

FOR D=l 

NEXT 

NEXT S 

MEXT M 

PRINT"F I R E 



D DELAY 



TO 1 STEP -1 



TO 3a5 
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160 REM ChAPTER 15, EXERCISE 19 



- 10 ROCKETS 
10 

- A ROCKET 



- EXHAUST 



170, REM PART a 

18o" FOR R=l TQ 

200 REM PART 1 

210 PRINT" A" 

220 PRINT" H" 

230 PRINT"<A>" 

300 REM PART 2 

310 FOR E=l TO 8 

320 PRINT" *" 

330 POR 0=1 TO 100 

3ao NEXT 

350 NEXT E 

«00 REM PART 3 - SPACE 

<U0 FOR S=l TO 8 

a20 PRINT 

O30 FOR D=l TO 100 

««0 NEXT D 

«50 NEXT S 

500 REM OTHER BIT OF PART a 

510 NEXT R 



10 REM CHAPTER 18, EXERCISE 20 

20 BAL=0 

30 INPUT"1 FOR DR OR 2 FOR CR";OPT 

40 IF OPT=l THEN PRINT"DR AMOUNT"? 

50 IF 0PT=2 THEN PRINT"CR AMOUNT"; 

60 GOSUB 200 

70 IF 0PT=1 THEN BAL=BAL-AMT 

80 IF 0PT=2 THEN BAL=BAL*AMT 

90 PRINT BAL 

100 GOTO 30 

200 REM SUBPROGRAM 

210 INPUT AMT 

220 IF AMT<0 THEN GOTO 210 

230 IF AMTMOO THEN GOTO 210 

240 RETURN 
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10 HEM CHAPTER 18, EXERCISE 21 

20 HAL = 

50 REM CONTROL MODULE 

40 INiPJT"l=DR,2=CK";nPT 

50 ON OPT GOSUB 1000,2000 

60 PRINT HAL 

7 GOTO HO 

1000 REM DR MODULE 

1010 PRJ.NT"DH AMOUNT"; 

1020 GOSUH ^000 

1030 9ALs8AL-AMT 

1040 ->FTtJR f i 

2000 RE 4 CR MODULE 

2010 PRINT"CK AMOUNT"; 

2020 GOSUB 9000 

2030 BAL=HAL+A^T 

2040 RETURN 

9000 REM INPUT MODULE 

9010 INPUT AMT 

9020 IF AMT<0 THEN GOTO 9010 

9030 IF AMT>100 THEfM GOTO 9010 

R040 RETURN 

10 *EM CHAPTER 19, EXERCISE 22 

20 DATA 4ob, 591 , bib, 988, 1005, 1213 

30 INPUT"CUSTOMER NUMBER" ;C 

'40 RESTURF 

50 FOR N=l TO 6 

60 READ HAD 

70 IF C=BAO THEM GOTO 200 

fcO J E X T N 

90 REM NOT FOUND, SO OK 

100 PRI\'T"CREOIT OKI" 

120 GOTO 30 

200 WEM rtOOPS, FOUND. 

210 PRINT "HE'S A NU-NO" 

220 GOTO 30 
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10 REM CHAPTER 
20 DATA"Hnf'JG" , " 
50 DATA"RALPH", 
100 DATA"*" 

INP(lT"SURNAME 

RESTORE 

READ OSS 



120 
130 
140 
150 
160 
170 
180 
190 
300 
310 
220 
230 

aao 

250 
300 
310 



19, EXERCISE 2i 

MAGGIE", "60 THE ROAD" , "SYDNEY 2000" 

"IJGRID"," 1 COMPUTER W A Y" , " HOP ART 70C0" 



SN$ 



IF DSS = "*" THE' 1 .! GOTO 300 

IF DS$=SN$ THEN GOTO 200 

RFM PASS EXTRA E'JTRIfcS! 

READ DG$,D1$,D?$ 

GOTO 140 

PRINT "FOUND" 

READ DG$,D1$,D2$ 

PRIMT 0G$;" ";DSS 

PRIMT 01$ 

PRINT 02$ 

GOTO 120 

PRINT"NOT KNUwNI" 

GOTO 120 



10 REM CHAPTER 20, EXERCISE 2a 
20 inpjt"YES"; ANS$: IF ANS$ = "YES" 
30 PRINT"NOT OK":G0T0 20 



THEN PRINT"OK" :GOTO 20 



10 REM CHAPTER 21, EXERCISE 25 

20 DlsRNO(6) 

30 D2=RND(6) 

HO PRINJT YOUR THROW IS" ; 1 ; " AND" ; 02 

10 REM CHAPTER 21, EXERCISE 2b 

20 DAT A" JACK", "QUEEN"," KING", "ACE"," SPADES", "CLUBS" 

21 DATA"DIAMONDS", "HEARTS" 
30 N=RND(13) : REV 13 CARDS 
ao SxRMO(«3 : REM n SUITS 
50 PRINT"YOUR DRAW IS THE " ', 
60 IF N<10 THEN PRINT N+i; : 
70 RESTORE : FOR C=l TO N-9 
80 PRINT CDS; 

200 RESTORE : FOR C=l TO S*4 
210 PRINT" OF "JSTS 



IN A SUIT 



GOTO 200 
READ CDS 



NEXT C 



READ STS : NEXT C 



EXERCISE 27 
REM BLOCK 



10 REM CHAPTER 22, 

20 FOR R=0 TO U7 : 

30 FOR C=0 TO 127 

«0 SET(C,R) 

50 NEXT C : NEXT R 

60 RESET(RND( 1 28) - 1 ,RND(48)-1 ) 

70 GOTO 60 



REM TERMITES! 
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10 REM CHAPTER 22, EXERCISE 28 

20 CLS 

30 X=RND(t27) : Y=RND(a7) 

ao SFT(X,Y) : REM MAIN SNAIL LOOP 

50 X=X+RNDC3)-2 

60 IF X<0 THEN X=0 

70 IF X>127 THEN X=127 

RO Y=Y+RND(3)-2 

90 IF Y<0 THEN Y=0 

100 IF Y>47 THEN Y = 4 7 

110 GOTO 4 



10 
11 
20 

iO 

ao 
us 
so 

60 

7 

HO 

9 

100 

105 

110 



RE ^ CHAPTER 25, EXERCISE 29 
RE^ ADD LINES «5 * 105 TO EXERCISE 
CLS 

X=R^O(127) : Y=RuD(47) 
SET(X,Y) : MAI-g SNAIL LOOP 
*S=X : ys=y : *EM SAVE POSITION 
X=XtRND( 3) -2 
IF X<0 THEN X = f; 
IF *>127 THEN > = 127 
r = Y+R-iD(3)-2 
IF Y<0 THEN Y=0 
IF Y>47 THfcN Y=4/ 



28 



IF =>OINT(X,Y)=-l THEf X = XS 
GOTT 4 



Y = YS 



GOTO 50 



1 xl A CHAPTER 23, EXERCISE 30 

10 01* .JUAN 1(50 J 

20 I,MPJT"EMTRY";E 

30 I gPjT"VALUE";OUANT (E ) 

4u F Jk E=u TO 50 

50 IF r JJA<-JHE)<>0 THEN PRINT E,QlJANT(E) 

bu MFXT [ 

7 GOTO 2 



?"CHAPTtR 24, EXERCISE 31" 
NA Jl$ = "SKYwALKEK" 
?1 ,LEN(NAMfi) 
.^2,LEFT5(NAM$,3) 
?3,RTGHTS(NAM$,6) 
>4,KlGHTS(NAM$,LE'J(NAM'b) ) 



io rfm chapter 24, exercise 32 

20 X = 

JO 1 JPJT RQ5 : REM CALCULATOR LOOP 

4u FOR T=l TO LEN(Ryi) 

50 IF *ID$(RQ$,Irl)= M " THEN GOTO 70 

oO JEXT I : GOTO 200 

7 N -18R = VAL(RlGHT?(R(Ji,LEN(RQ$) -I ) ) 

80 IF LEFTMRNS, 1-1 J = "ENTER" THEN X = NM(3R 

90 IF LEFT$(Rm, 1-1 ) = "A|)D" THEN XsX+NM8R 

100 IF LEFT$(RfJi>, 1-1 )="SUB" THEN X = X-NMHR 



200 ORI^T X 



GOTO 30 
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10 
20 
30 

ao 

50 

60 

70 

80 

90 

100 

200 

210 



REM CHAPTER 
PRINT"ENTLH 
PiPJT"SW l"; 
IMPJT"Sa 2"; 
IWPUT H Sw 3"; 
INPUT'S* a"; 

IF S1$="CN" 
IF SaS="ON" 
PRINP'DARKNfcSS 
ROTO 10 



25, tXERCISE 33 

SWITCH STATES AS 

SIS 

S2S 

S3i> 

sa$ 

AND S25="ON" AND 
THEN GOTO 200 
PREVAILS!" 



ON! OR OFF 



S3*="ON" THEM GOTO 200 



PRI MT"THE 
GOTO 10 



FIRMAMENT IS INDEED ILLUMI NATED 1 



10 REM CHAPTER 26, EXERCISE 3U 

20 CLS : REM BUSINESS FORM! 

30 FOR X = TO 1?7 

ao SET(X,0) : SET(X,6) : SET(X,«7) 

50 NEXT X 

60 FOR Y=0 TO «7 

70 SET(0,Y) : SET(127,Y) 

80 NEXT Y 

90 PRINTa84, "SYSTEM 80 FANCY TITLE"; 

100 GOTO 100 : REM STOP PROMPT 



10 REM CHAPTER 26, EXERCISE 35 

20 CLS : REM ACE OF HEARTS 

30 FOR X=l TO 20 

UO SET(X,0) : SET(X,21) 

50 NEXT X 

60 FOR Y=l TO 20 

70 SET(0,Y) : SET(21,Y) 

80 NEXT Y 

90 PRINT365,"A»; : PRINTo)393, " A" ; 

100 FOR Y=0 TO 3 

110 SET(8,Y*8) : SET(9,Y+9) : SET(10,Y+10) 

120 SET(12,Y+8) : SETHI, Y+9) 

130 NEXT Y 

1«0 SET(7,9) : SET(7,10) : SET(13,9) : SETU3, 

150 PRINTd)512, : REM JUST POSITION PROMPT!! 



10) 



-m 
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10 H£M CHAPTER 2b, EXERCISE 36 

20 DIM MAM$(c,) ,Q(5) 

30 CLEAR ?00 

40 FOR p=1 TO b 

SO I-MPJT"NAME » QUANTITY";NAM$(P) ,Q(P) 

60 NEXT P 

70 HIG=0 : HEM FIND BIGGEST FOP SCALING 

BC FOP P=I TO b 

^0 IF 9('P)>fllG THEN BIG=Q(P) 

100 NEXT P 

110 CLS 

120 PRIiJT"PRODUCT","% SALES" 

130 FOR P=l TO 5 

140 PRI JT LFFT$(hAMt(P) , ife) 

150 FOP X=0 TO 0(P)/BIG *90 

loO SET (X + 52,P*3+ 1 ) 

WO NEXT X : ME XT p 



REM SCALE BAP CHART 



10 

2 
3u 
uu 
bO 
60 
70 
80 
9 

100 
110 
120 
130 
lao 

1 bo 

160 
170 
180 
1"0 

2 00 



RF 
01 
IN 
FO 
I I 
PH 
IN 

f:j 

PR 

p 

p 
p 

I 

F 
P 

P 
P 

F 

P 
N 



M C H A 
*1 MAO 
P J T " f i 
R 1 = 1 
°JT"A 
IN T " P 
P.JT"P 
R 1 = 1 
I M T " 
PINT: 
BI'JT* 
PINT" 
NPJT" 
OR 1 = 
»INT" 
PINT: 
R I M T " 
OR 1 = 
RI JT 
EXT I 



PTEP 27, EXERCISE 37 

US) 

Amf»;,NAD$( 1 J 

TO 4 
DDHfcSS LINE";NA0$(I4 1 ) : NEXT I 
PEPARE CASSETTE TO RECORD PLEASE" 
RESS ' NEai LINE' *HEN READY";ANS5 

TO b : PPINT»-1 r NADJ(I) : NEXT I 
K, STOP THE TAPE PLEASE" 
PR I NT: PR I NT 
NOW «E 'LL RELOAD IT" 
REMIND TAPE PLEASE" 

PRESS 'NE* LINE' WHEN READY","AUS$ 
1 TO 5 : INPUT#-1 ,NAD$( I) : NEXT I 
STOP THE TAPE PLEASE" 
PR INT: PR INT 

THIS IS AHAT *E OOT;":PRINT 
1 TO 5 
NAD"&( T) 
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Appendix D. Getting started before 

you read any books ! 



If you're like most people, the first thing you'll want to do when you 
get your new System 80 computer home is plug it in and get a program 
running - long before you start reading through any books at all! 

This is natural enough; in fact you'll find that there's a demon- 
stration cassette with your System 80 designed for this very purpose. 
Or you can buy any of the pre-recorded program cassettes for the 
System 80 or the Tandy TRS-80 Level II. 

To get such a pre-recorded program running, you only need to read 
chapter 1 of this book. This tells you how Lo connect up your 
System 80 and get it ready for business. Then you work through the 
following short sequence of steps: 

1. Press the (TT) button above the keyboard on the System 80 (the 
adjacent red lamp should come on). Now press the ST0P-E3ECT key 
on the tape deck. This will open the deck lid, so that you can 
insert the cassette - make sure that the side marked 
"DEMONSTRATION" (or the wanted program with another program 
cassette) is uppermost. 

2. Press the REW key, to rewind the cassette to the start. Now press 
the STOP-EJECT key, and remove the cassette. Then with a pencil 
or your finger, wind the tape inside the cassette until the brown 
magnetic part of the tape reaches the front gaps. Now re-insert 
the cassette, same side up as before. 

3. Press the (£l) button again (the lamp should now go out), and 
press the PLAY key on the tape deck until it latches down. 

4. Now type in the conmand NEW, followed by [NEW LINE] , and follow 
t his with the second command CL0AD (again followed by the 

[NEW LINE] key). The tape should now move, and the first program 
on the tape will be loaded. 

5. When the word READY re-appears on the screen, press the STOP key 
on the cassette deck to make sure that the tape stops. Then type 
in the command RUN, again followed by [NEW LINE) . The program 
loaded from tape should now run. 



6. To stop a program running, press the [BREAK) key. 



7. To load in a new program, type NEW and [NEW LINE] to erase the 
existing program. Then press the PLAY key of the cassette deck, 
and type~in CL0AD again followed by [NEW LINE] . 
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8. Note that the System 80 demonstration cassette has five different 
demonstration programs. These can be specified when you give the 
CLOAD command, if you wish, by following the word CLOAO with the 
first letter of the program name, in quotes. So t© specify the 
first program, called GRAPHICS, you would type CL0AD"G". 
Similarly to specify the last program, called STAR WAR, you would 
type CLOWS". If you do give the first letter of a program name 
in this way, the System 80 will search along the tape until it finds 
a program whose name starts with the specified letter. (If you just 
type CLOAD, it will simply load i n the next program it finds) 
Don't forget to always press the INEW LINEl key after typing in a 
command such as NEW, CLUAD, CL0AD"G" or RUN. 

The above "short instructions" should let you get your System 80 
running very quickly on pre-recorded programs. But in order to write 
your own programs you'll still have to read the rest of this book, and 
preferably the manuals which come with the System 80 itself... 
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